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="
121:1:1:1 2:2:2:2 1 => +0:0:0:3:3:3:3
13
141:1:1:1 2:-1:1:1 1 => +0:0:0:3:0:0:0
15
161:1:1:1 0:-11:5:6 1 => +0:0:0:0:13:55:55
17
181:1:1:1 0:-25:5:6 1 => -0:0:0:0:0:4:5
19
201:1:1:1:1:1:1 2:12:5:2:48:120:120 1 => +4:1:6:5:3:3:1
21
221:1:1:1:1:1:1 2:12:-1:2:48:120:120 1 => +4:1:-0:3:1:0:59
23
24";
25
26$::ti->tests(func  => \&DateCalc,
27             tests => $tests);
28$::ti->done_testing();
29
30#Local Variables:
31#mode: cperl
32#indent-tabs-mode: nil
33#cperl-indent-level: 3
34#cperl-continued-statement-offset: 2
35#cperl-continued-brace-offset: 0
36#cperl-brace-offset: 0
37#cperl-brace-imaginary-offset: 0
38#cperl-label-offset: 0
39#End:
40