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