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 09:00:00)); 12$obj1->config(qw(workdayend 16:30:00)); 13our $obj2 = $obj1->new_delta(); 14 15sub test { 16 my(@test)=@_; 17 18 my $err = $obj1->parse(shift(@test)); 19 return $$obj1{"err"} if ($err); 20 $err = $obj2->parse(shift(@test)); 21 return $$obj2{"err"} if ($err); 22 23 my $obj3 = $obj1->calc($obj2,@test); 24 return if (! defined $obj3); 25 $err = $obj3->err(); 26 return $err if ($err); 27 my $ret = $obj3->value(); 28 return $ret; 29} 30 31my $tests=" 32 33'2011-04-01 12:32:00' 'business + 7 hours' => 2011040412:02:00 34 35"; 36 37$::ti->tests(func => \&test, 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