1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9our $obj1 = new Date::Manip::Date; 10$obj1->config("forcedate","now,America/New_York"); 11$obj1->config(qw(workdaybeg 08:30:00)); 12our $obj2 = $obj1->new_delta(); 13 14sub test { 15 my(@test)=@_; 16 17 my $err = $obj1->parse(shift(@test)); 18 return $$obj1{"err"} if ($err); 19 $err = $obj2->parse(shift(@test)); 20 return $$obj2{"err"} if ($err); 21 22 my $obj3 = $obj1->calc($obj2,@test); 23 return if (! defined $obj3); 24 $err = $obj3->err(); 25 return $err if ($err); 26 my $ret = $obj3->value(); 27 return $ret; 28} 29 30my $tests=" 31 32'Wed Nov 20 1996 noon' 'business +0:5:0:0' => 1996112108:30:00 33 34'Wed Nov 20 1996 noon' 'business +3:7:0:0' => 1996112610:30:00 35 36'Mar 31 1997 16:59:59' 'business + 1 sec' => 1997040108:30:00 37 38"; 39 40$::ti->tests(func => \&test, 41 tests => $tests); 42$::ti->done_testing(); 43 44#Local Variables: 45#mode: cperl 46#indent-tabs-mode: nil 47#cperl-indent-level: 3 48#cperl-continued-statement-offset: 2 49#cperl-continued-brace-offset: 0 50#cperl-brace-offset: 0 51#cperl-brace-imaginary-offset: 0 52#cperl-label-offset: 0 53#End: 54