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(@test)=@_; 14 $obj->secs_since_1970_GMT(@test); 15 my $ret = $obj->value(); 16 return $ret; 17} 18 19my $tests=" 20881755200 => 1997121007:00:00 21 22944829030 => 1999121007:30:30 23 241256046697 => 2009102009:51:37 25 26"; 27 28$::ti->tests(func => \&test, 29 tests => $tests); 30$::ti->done_testing(); 31 32#Local Variables: 33#mode: cperl 34#indent-tabs-mode: nil 35#cperl-indent-level: 3 36#cperl-continued-statement-offset: 2 37#cperl-continued-brace-offset: 0 38#cperl-brace-offset: 0 39#cperl-brace-imaginary-offset: 0 40#cperl-label-offset: 0 41#End: 42