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::Delta; 10$obj1->config("forcedate","now,America/New_York"); 11our $obj2 = $obj1->new_delta(); 12 13sub test { 14 my (@test)=@_; 15 16 my $err = $obj1->parse(shift(@test)); 17 if ($err) { 18 return $obj1->err(); 19 } 20 21 $err = $obj2->parse(shift(@test)); 22 if ($err) { 23 return $obj2->err(); 24 } 25 26 my $obj3 = $obj1->calc($obj2,@test); 27 my $ret = $obj3->value(); 28 return $ret; 29} 30 31my $tests=" 32 331:1:1:1:1:1:1 2:12:5:2:48:120:120 => 4:1:6:5:3:3:1 34 351:1:1:1:1:1:1 2:12:-1:2:48:120:120 => 4:1:0:-3:1:0:59 36 372:3:4:5:6:7:8 1:2:3:4:5:6:7 => 3:5:8:2:11:13:15 38 392:3:4:5:6:7:8 1:2:3:4:5:6:7 1 => 1:1:1:1:1:1:1 40 411:1:0:1:1:1:1 2:12:1:2:48:120:120 => 4:1:1:5:3:3:1 42 431:1:0:1:1:1:1 2:12:0:-2:48:120:120 => 4:1:0:-3:1:0:59 44 452:3:4:5:6:7:8 1:2:3:4:5:6:7 => 3:5:8:2:11:13:15 46 472:3:4:5:6:7:8 1:2:3:4:5:6:7 1 => 1:1:1:1:1:1:1 48 49"; 50 51$::ti->tests(func => \&test, 52 tests => $tests); 53$::ti->done_testing(); 54 55#Local Variables: 56#mode: cperl 57#indent-tabs-mode: nil 58#cperl-indent-level: 3 59#cperl-continued-statement-offset: 2 60#cperl-continued-brace-offset: 0 61#cperl-brace-offset: 0 62#cperl-brace-imaginary-offset: 0 63#cperl-label-offset: 0 64#End: 65