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::TZ; 10$obj->config("forcedate","now,America/New_York"); 11 12sub test { 13 my (@test)=@_; 14 return $obj->convert_from_gmt(@test); 15} 16 17my $tests=" 18[ 1985 1 1 17 0 0 ] America/New_York => 19 0 [ 1985 1 1 12 0 0 ] [ -5 0 0 ] 0 EST 20 21[ 1985 4 28 7 0 0 ] America/New_York => 22 0 [ 1985 4 28 3 0 0 ] [ -4 0 0 ] 1 EDT 23 24[ 1985 10 27 6 0 0 ] America/New_York => 25 0 [ 1985 10 27 1 0 0 ] [ -5 0 0 ] 0 EST 26 27[ 1985 10 27 5 0 0 ] America/New_York => 28 0 [ 1985 10 27 1 0 0 ] [ -4 0 0 ] 1 EDT 29 30"; 31 32$::ti->tests(func => \&test, 33 tests => $tests); 34$::ti->done_testing(); 35 36#Local Variables: 37#mode: cperl 38#indent-tabs-mode: nil 39#cperl-indent-level: 3 40#cperl-continued-statement-offset: 2 41#cperl-continued-brace-offset: 0 42#cperl-brace-offset: 0 43#cperl-brace-imaginary-offset: 0 44#cperl-label-offset: 0 45#End: 46