use
strict;
use
warnings;
use
Test::More;
{
sub
Methods { (
'FromHardCoded'
) }
sub
FromHardCoded {
DateTime::TimeZone::OffsetOnly->new(
offset
=> 42 * 60 );
}
}
local
$^O =
'foobar'
;
my
$tz
= DateTime::TimeZone->new(
name
=>
'local'
);
isa_ok(
$tz
,
'DateTime::TimeZone'
);
is(
$tz
->name(),
'+2520'
,
'os42 returns expected time zone'
);
done_testing();