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