1#!/usr/bin/perl 2 3use warnings; 4use strict; 5use Test::Inter; 6$::ti = new Test::Inter $0; 7require "tests.pl"; 8 9$::ti->use_ok('Date::Manip::TZdata'); 10 11my $obj; 12my $moddir = $::ti->testdir('mod'); 13if ( -d "$moddir/tzdata" ) { 14 $obj = new Date::Manip::TZdata($moddir); 15} else { 16 $::ti->skip_all('No tzdata directory'); 17} 18 19sub test { 20 my(@test)=@_; 21 return $obj->_ruleInfo(@test); 22} 23 24my $tests=" 25 26HK stdlett 1955 => __blank__ 27 28HK savlett 1955 => S 29 30Iran stdlett 1980 => __blank__ 31 32Iran savlett 1980 => __blank__ 33 34Canada stdlett 1980 => S 35 36Canada savlett 1980 => D 37 38Chicago lastoff 1920 => 00:00:00 39 40Winn lastoff 1942 => 01:00:00 41 42US rdates 1918 => 43 1918033102:00:00 44 01:00:00 45 w 46 D 47 1918102702:00:00 48 00:00:00 49 w 50 S 51 52US rdates 1942 => 53 1942020902:00:00 54 01:00:00 55 w 56 W 57 58US rdates 1945 => 59 1945081423:00:00 60 01:00:00 61 u 62 P 63 1945093002:00:00 64 00:00:00 65 w 66 S 67 68US rdates 2010 => 69 2010031402:00:00 70 01:00:00 71 w 72 D 73 2010110702:00:00 74 00:00:00 75 w 76 S 77 78RussiaAsia rdates 1990 => 79 1990032502:00:00 80 01:00:00 81 s 82 __blank__ 83 1990093002:00:00 84 00:00:00 85 s 86 __blank__ 87 88"; 89 90$::ti->tests(func => \&test, 91 tests => $tests); 92$::ti->done_testing(); 93 94#Local Variables: 95#mode: cperl 96#indent-tabs-mode: nil 97#cperl-indent-level: 3 98#cperl-continued-statement-offset: 2 99#cperl-continued-brace-offset: 0 100#cperl-brace-offset: 0 101#cperl-brace-imaginary-offset: 0 102#cperl-label-offset: 0 103#End: 104