1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9our $obj = new Date::Manip::Date; 10$obj->config("forcedate","now,America/New_York"); 11 12sub test { 13 my($date,$isdst,@test)=@_; 14 $obj->_init(); 15 my $err = $obj->set("date",$date,$isdst); 16 $err = $obj->convert(@test) if (! $err); 17 if ($err) { 18 return $obj->err(); 19 } else { 20 my $d1 = $obj->value(); 21 return($d1); 22 } 23} 24 25my $tests=" 26 27[ 1985 01 01 00 30 00 ] 0 America/Chicago => 1984123123:30:00 28 29[ 1985 01 01 12 00 00 ] 0 America/Chicago => 1985010111:00:00 30 31[ 1985 04 28 01 00 00 ] 0 America/Chicago => 1985042800:00:00 32 33[ 1985 04 28 03 00 00 ] 0 America/Chicago => 1985042801:00:00 34 35[ 1985 04 28 03 30 00 ] 0 America/Chicago => 1985042801:30:00 36 37[ 1985 04 28 04 00 00 ] 0 America/Chicago => 1985042803:00:00 38 39[ 1985 10 27 00 30 00 ] 0 America/Chicago => 1985102623:30:00 40 41[ 1985 10 27 01 00 00 ] 1 America/Chicago => 1985102700:00:00 42 43[ 1985 10 27 01 30 00 ] 1 America/Chicago => 1985102700:30:00 44 45[ 1985 10 27 01 00 00 ] 0 America/Chicago => 1985102701:00:00 46 47[ 1985 10 27 01 30 00 ] 0 America/Chicago => 1985102701:30:00 48 49[ 1985 10 27 02 00 00 ] 0 America/Chicago => 1985102701:00:00 50 51"; 52 53$::ti->tests(func => \&test, 54 tests => $tests); 55$::ti->done_testing(); 56 57#Local Variables: 58#mode: cperl 59#indent-tabs-mode: nil 60#cperl-indent-level: 3 61#cperl-continued-statement-offset: 2 62#cperl-continued-brace-offset: 0 63#cperl-brace-offset: 0 64#cperl-brace-imaginary-offset: 0 65#cperl-label-offset: 0 66#End: 67