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");
10Date_Init("WorkDayBeg=08:30","WorkDayEnd=17:00");
11
12my $tests="
13'Wed Nov 20 1996 noon' +0:5:0:0 2 => 1996112108:30:00
14
15'Wed Nov 20 1996 noon' +3:7:0:0 2 => 1996112610:30:00
16
17'Mar 31 1997 16:59:59' '+ 1 sec' 2 => 1997040108:30:00
18
19";
20
21$::ti->tests(func  => \&DateCalc,
22             tests => $tests);
23$::ti->done_testing();
24
25#Local Variables:
26#mode: cperl
27#indent-tabs-mode: nil
28#cperl-indent-level: 3
29#cperl-continued-statement-offset: 2
30#cperl-continued-brace-offset: 0
31#cperl-brace-offset: 0
32#cperl-brace-imaginary-offset: 0
33#cperl-label-offset: 0
34#End:
35