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