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