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'Jan 1 1996 12:00:00' 'Jan 1 1996 14:30:30' 0 => +0:0:0:0:2:30:30
14
15'Jan 1 1996 14:30:30' 'Jan 1 1996 12:00:00' 0 => -0:0:0:0:2:30:30
16
17'Jan 1 1996 12:00:00' 'Jan 2 1996 14:30:30' 0 => +0:0:0:1:2:30:30
18
19'Jan 2 1996 14:30:30' 'Jan 1 1996 12:00:00' 0 => -0:0:0:1:2:30:30
20
21'Jan 1 1996 12:00:00' 'Jan 2 1996 10:30:30' 0 => +0:0:0:0:22:30:30
22
23'Jan 2 1996 10:30:30' 'Jan 1 1996 12:00:00' 0 => -0:0:0:0:22:30:30
24
25'Jan 1 1996 12:00:00' 'Jan 2 1997 10:30:30' 0 => +0:0:52:2:22:30:30
26
27'Jan 2 1997 10:30:30' 'Jan 1 1996 12:00:00' 0 => -0:0:52:2:22:30:30
28
29'Jan 1st 1997 00:00:01' 'Feb 1st 1997 00:00:00' 0 => +0:0:4:2:23:59:59
30
31'Jan 1st 1997 00:00:01' 'Mar 1st 1997 00:00:00' 0 => +0:0:8:2:23:59:59
32
33'Jan 1st 1997 00:00:01' 'Mar 1st 1998 00:00:00' 0 => +0:0:60:3:23:59:59
34
35";
36
37$::ti->tests(func  => \&DateCalc,
38             tests => $tests);
39$::ti->done_testing();
40
41#Local Variables:
42#mode: cperl
43#indent-tabs-mode: nil
44#cperl-indent-level: 3
45#cperl-continued-statement-offset: 2
46#cperl-continued-brace-offset: 0
47#cperl-brace-offset: 0
48#cperl-brace-imaginary-offset: 0
49#cperl-label-offset: 0
50#End:
51