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->_zoneInfo(@test);
22}
23
24my $tests="
25
26America/Chicago rules 1800 => - 1
27
28America/Chicago rules 1883 => - 1 US 2
29
30America/Chicago rules 1919 => US 2
31
32America/Chicago rules 1920 => Chicago 2
33
34America/Chicago rules 1936 => Chicago 2 - 1 Chicago 2
35
36Atlantic/Cape_Verde rules 1975 => - 1 - 1
37
38Asia/Tbilisi rules 1996 => E-EurAsia 2 01:00:00 3
39
40";
41
42$::ti->tests(func  => \&test,
43             tests => $tests);
44$::ti->done_testing();
45
46#Local Variables:
47#mode: cperl
48#indent-tabs-mode: nil
49#cperl-indent-level: 3
50#cperl-continued-statement-offset: 2
51#cperl-continued-brace-offset: 0
52#cperl-brace-offset: 0
53#cperl-brace-imaginary-offset: 0
54#cperl-label-offset: 0
55#End:
56