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 13'Fri Nov 22 1996 17:49:30' sat 0 => 1996112317:49:30 14 15'Fri Nov 22 1996 17:49:30' sat 1 => 1996112317:49:30 16 17'Fri Nov 22 1996 17:49:30' fri 0 => 1996112917:49:30 18 19'Fri Nov 22 1996 17:49:30' 5 0 => 1996112917:49:30 20 21'Fri Nov 22 1996 17:49:30' fri 1 => 1996112217:49:30 22 23'Fri Nov 22 1996 17:49:30' fri 0 18:30 => 1996112918:30:00 24 25'Fri Nov 22 1996 17:49:30' fri 0 18:30:45 => 1996112918:30:45 26 27'Fri Nov 22 1996 17:49:30' fri 0 18 30 => 1996112918:30:00 28 29'Fri Nov 22 1996 17:49:30' fri 0 18 30 45 => 1996112918:30:45 30 31'Fri Nov 22 1996 17:49:30' fri 1 14 30 45 => 1996112214:30:45 32 33'Fri Nov 22 1996 17:49:30' fri 2 14 30 45 => 1996112914:30:45 34 35'Fri Nov 22 1996 17:49:30' '' 0 18 => 1996112218:00:00 36 37'Fri Nov 22 1996 17:49:33' '' 0 18:30 => 1996112218:30:00 38 39'Fri Nov 22 1996 17:49:33' '' 0 18 30 => 1996112218:30:00 40 41'Fri Nov 22 1996 17:49:33' '' 0 18:30:45 => 1996112218:30:45 42 43'Fri Nov 22 1996 17:49:33' '' 0 18 30 45 => 1996112218:30:45 44 45'Fri Nov 22 1996 17:49:33' '' 0 18 '' 45 => 1996112218:00:45 46 47 48'Fri Nov 22 1996 17:00:00' '' 0 17 => 1996112317:00:00 49 50'Fri Nov 22 1996 17:00:00' '' 1 17 => 1996112217:00:00 51 52'Fri Nov 22 1996 17:49:00' '' 0 17 49 => 1996112317:49:00 53 54'Fri Nov 22 1996 17:49:00' '' 1 17 49 => 1996112217:49:00 55 56'Fri Nov 22 1996 17:49:33' '' 0 17 49 33 => 1996112317:49:33 57 58'Fri Nov 22 1996 17:49:33' '' 1 17 49 33 => 1996112217:49:33 59 60'Fri Nov 22 1996 17:00:33' '' 0 17 '' 33 => 1996112317:00:33 61 62'Fri Nov 22 1996 17:00:33' '' 1 17 '' 33 => 1996112217:00:33 63 64 65 66'Fri Nov 22 1996 17:49:30' '' 0 '' 30 => 1996112218:30:00 67 68'Fri Nov 22 1996 17:49:30' '' 0 '' 30 45 => 1996112218:30:45 69 70'Fri Nov 22 1996 17:49:30' '' 0 '' '' 30 => 1996112217:50:30 71 72 73 74'Fri Nov 22 1996 17:30:00' '' 0 '' 30 => 1996112218:30:00 75 76'Fri Nov 22 1996 17:30:00' '' 1 '' 30 => 1996112217:30:00 77 78'Fri Nov 22 1996 17:30:45' '' 0 '' 30 45 => 1996112218:30:45 79 80'Fri Nov 22 1996 17:30:45' '' 1 '' 30 45 => 1996112217:30:45 81 82'Fri Nov 22 1996 17:30:45' '' 0 '' '' 45 => 1996112217:31:45 83 84'Fri Nov 22 1996 17:30:45' '' 1 '' '' 45 => 1996112217:30:45 85 86"; 87 88$::ti->tests(func => \&Date_GetNext, 89 tests => $tests); 90$::ti->done_testing(); 91 92#Local Variables: 93#mode: cperl 94#indent-tabs-mode: nil 95#cperl-indent-level: 3 96#cperl-continued-statement-offset: 2 97#cperl-continued-brace-offset: 0 98#cperl-brace-offset: 0 99#cperl-brace-imaginary-offset: 0 100#cperl-label-offset: 0 101#End: 102