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($offset,@args) = @_;
14   $obj->define_offset("reset");
15   my($err,$val) = $obj->define_offset($offset,@args);
16   return ($err,$val)  if ($err);
17   my @ret = (0);
18   push(@ret,$obj->zone($offset,"stdonly"));
19   push(@ret,1);
20   push(@ret,$obj->zone($offset,"dstonly"));
21   return @ret;
22}
23
24my $tests="
25
26# +06:30:00;
27#    0 => [
28#         indian/cocos,
29#         asia/colombo,
30#         asia/dhaka,
31#         asia/kolkata,
32#         asia/rangoon,
33#         ],
34#      1 => [
35#         asia/colombo,
36#         asia/kolkata,
37#         asia/karachi,
38#         ],
39
40+06:30:01 std Asia/Colombo Indian/Cocos     => 1 __undef__
41
42+00:09:21 dstonly Europe/Paris              => 2 __undef__
43
44+00:34:39 stdonly Europe/Dublin             => 2 __undef__
45
46+06:30:00 std Asia/Colombo Foo/Bar          => 3 Foo/Bar
47
48+06:30:00 std Asia/Colombo America/New_York => 4 America/New_York
49
50+06:30:00 stdonly Asia/Colombo Asia/Karachi => 5 Asia/Karachi
51
52+06:30:00 dstonly Asia/Colombo Indian/Cocos => 5 Indian/Cocos
53
54+06:30:00:50 std Asia/Colombo               => 9 __undef__
55
56+06:30:00
57std
58Asia/Colombo
59Asia/Dhaka
60Asia/Karachi
61   =>
62   0
63   Asia/Colombo
64   Asia/Dhaka
65   1
66   Asia/Colombo
67   Asia/Karachi
68
69+06:30:00
70stdonly
71Asia/Dhaka
72Asia/Kolkata
73Asia/Yangon
74   =>
75   5
76   Asia/Kolkata
77";
78
79$::ti->tests(func  => \&test,
80             tests => $tests);
81$::ti->done_testing();
82
83#Local Variables:
84#mode: cperl
85#indent-tabs-mode: nil
86#cperl-indent-level: 3
87#cperl-continued-statement-offset: 2
88#cperl-continued-brace-offset: 0
89#cperl-brace-offset: 0
90#cperl-brace-imaginary-offset: 0
91#cperl-label-offset: 0
92#End:
93