1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9sub test { 10 my($d1,$d2) = (@_); 11 DateCalc($d1,$d2); 12} 13 14Date_Init("ForceDate=1997-03-08-12:30:00,America/New_York"); 15Date_Init("ConfigFile=Manip.cnf"); 16Date_Init("WorkDayBeg=08:30","WorkDayEnd=17:00"); 17 18my $tests=" 19 20'Wed Nov 20 1996 noon' '+0:5:0:0 business' => 1996112108:30:00 21 22'Wed Nov 20 1996 noon' '+3:7:0:0 business' => 1996112610:30:00 23 24'Mar 31 1997 16:59:59' '+ 1 sec business' => 1997040108:30:00 25 26"; 27 28$::ti->tests(func => \&test, 29 tests => $tests); 30$::ti->done_testing(); 31 32#Local Variables: 33#mode: cperl 34#indent-tabs-mode: nil 35#cperl-indent-level: 3 36#cperl-continued-statement-offset: 2 37#cperl-continued-brace-offset: 0 38#cperl-brace-offset: 0 39#cperl-brace-imaginary-offset: 0 40#cperl-label-offset: 0 41#End: 42