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