{
my
$dt
= DateTimeX::Lite->now;
eval
{
$dt
->set_time_zone(
'Pacific/Tarawa'
) };
is( $@,
''
,
"time zone without dst change works"
);
eval
{
$dt
->set_time_zone(
'Asia/Dhaka'
) };
is( $@,
''
,
"time zone without dst change works (again)"
);
}
{
my
$tz
= DateTimeX::Lite::TimeZone->load(
name
=>
'America/Caracas'
);
my
@last_spans
= @{
$tz
->{spans} }[ -2, -1 ];
ok( ( !
grep
{
$_
->[5] }
@last_spans
),
'the last two spans for America/Caracas do not have DST'
);
for
my
$hm
( [ 2, 59 ],
[ 3, 00 ],
[ 5, 00 ],
[ 11, 29 ],
[ 11, 30 ],
)
{
my
$dt
=
eval
{ DateTimeX::Lite->new(
year
=> 2007,
month
=> 12,
day
=> 9,
hour
=>
$hm
->[0],
minute
=>
$hm
->[1],
time_zone
=>
'America/Caracas'
,
) };
my
$time
=
sprintf
(
'%02d:%02d'
, @{
$hm
} );
is( $@,
''
,
"made object in America/Caracas at $time"
);
}
}