1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9my $obj = new Date::Manip::Delta; 10$obj->config("forcedate","now,America/New_York"); 11 12sub test { 13 my(@test)=@_; 14 my $err = $obj->parse(@test); 15 if ($err) { 16 return $obj->err(); 17 } else { 18 my @val = $obj->value(); 19 return @val; 20 } 21} 22 23my $tests=" 24 25'1.5 days' => 0 0 0 1 12 0 0 26 27'1.1 years' => 1 1 0 6 2 5 49 28 29'1.1 years business' => 1 1 0 4 3 7 59 30 31"; 32 33$::ti->tests(func => \&test, 34 tests => $tests); 35$::ti->done_testing(); 36 37#Local Variables: 38#mode: cperl 39#indent-tabs-mode: nil 40#cperl-indent-level: 3 41#cperl-continued-statement-offset: 2 42#cperl-continued-brace-offset: 0 43#cperl-brace-offset: 0 44#cperl-brace-imaginary-offset: 0 45#cperl-label-offset: 0 46#End: 47