1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests-dm5.pl"; 8 9Date_Init("TZ=EST"); 10 11my $tests=" 12'Wed Jan 10 1996 noon' 'Wed Jan 7 1998 noon' 1 => +1:11:4:0:0:0:0 13 14'Wed Jan 7 1998 noon' 'Wed Jan 10 1996 noon' 1 => -1:11:4:0:0:0:0 15 16'Wed Jan 10 1996 noon' 'Wed Jan 8 1997 noon' 1 => +0:11:4:1:0:0:0 17 18'Wed Jan 8 1997 noon' 'Wed Jan 10 1996 noon' 1 => -0:11:4:1:0:0:0 19 20'Wed May 8 1996 noon' 'Wed Apr 9 1997 noon' 1 => +0:11:0:1:0:0:0 21 22'Wed Apr 9 1997 noon' 'Wed May 8 1996 noon' 1 => -0:11:0:1:0:0:0 23 24'Wed Apr 10 1996 noon' 'Wed May 14 1997 noon' 1 => +1:1:0:4:0:0:0 25 26'Wed May 14 1997 noon' 'Wed Apr 10 1996 noon' 1 => -1:1:0:4:0:0:0 27 28'Wed Jan 10 1996 noon' 'Wed Feb 7 1996 noon' 1 => +0:0:4:0:0:0:0 29 30'Wed Feb 7 1996 noon' 'Wed Jan 10 1996 noon' 1 => -0:0:4:0:0:0:0 31 32'Mon Jan 8 1996 noon' 'Fri Feb 9 1996 noon' 1 => +0:1:0:1:0:0:0 33 34'Fri Feb 9 1996 noon' 'Mon Jan 8 1996 noon' 1 => -0:1:0:1:0:0:0 35 36'Jan 1 1996 12:00:00' 'Jan 1 1996 14:30:30' 1 => +0:0:0:0:2:30:30 37 38'Jan 1 1996 14:30:30' 'Jan 1 1996 12:00:00' 1 => -0:0:0:0:2:30:30 39 40'Jan 1 1996 12:00:00' 'Jan 2 1996 14:30:30' 1 => +0:0:0:1:2:30:30 41 42'Jan 2 1996 14:30:30' 'Jan 1 1996 12:00:00' 1 => -0:0:0:1:2:30:30 43 44'Jan 1 1996 12:00:00' 'Jan 2 1996 10:30:30' 1 => +0:0:0:0:22:30:30 45 46'Jan 2 1996 10:30:30' 'Jan 1 1996 12:00:00' 1 => -0:0:0:0:22:30:30 47 48'Jan 1 1996 12:00:00' 'Jan 2 1997 10:30:30' 1 => +1:0:0:0:22:30:30 49 50'Jan 2 1997 10:30:30' 'Jan 1 1996 12:00:00' 1 => -1:0:0:0:22:30:30 51 52'Jan 31 1996 12:00:00' 'Feb 28 1997 10:30:30' 1 => +1:0:3:6:22:30:30 53 54'Feb 28 1997 10:30:30' 'Jan 31 1996 12:00:00' 1 => -1:0:3:6:22:30:30 55 56'Jan 1st 1997 00:00:01' 'Feb 1st 1997 00:00:00' 1 => +0:0:4:2:23:59:59 57 58'Jan 1st 1997 00:00:01' 'Mar 1st 1997 00:00:00' 1 => +0:1:3:6:23:59:59 59 60'Jan 1st 1997 00:00:01' 'Mar 1st 1998 00:00:00' 1 => +1:1:3:6:23:59:59 61 62"; 63 64$::ti->tests(func => \&DateCalc, 65 tests => $tests); 66$::ti->done_testing(); 67 68#Local Variables: 69#mode: cperl 70#indent-tabs-mode: nil 71#cperl-indent-level: 3 72#cperl-continued-statement-offset: 2 73#cperl-continued-brace-offset: 0 74#cperl-brace-offset: 0 75#cperl-brace-imaginary-offset: 0 76#cperl-label-offset: 0 77#End: 78