|
Packit |
1c5982 |
use warnings;
|
|
Packit |
1c5982 |
use strict;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
use Test::More tests => 22;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
require_ok "DateTime::TimeZone::Tzfile";
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
my $tz;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
$tz = DateTime::TimeZone::Tzfile->new("t/London.tz");
|
|
Packit |
1c5982 |
ok $tz;
|
|
Packit |
1c5982 |
ok !$tz->is_floating;
|
|
Packit |
1c5982 |
ok !$tz->is_utc;
|
|
Packit |
1c5982 |
ok !$tz->is_olson;
|
|
Packit |
1c5982 |
is $tz->category, undef;
|
|
Packit |
1c5982 |
is $tz->name, "t/London.tz";
|
|
Packit |
1c5982 |
ok $tz->has_dst_changes;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
$tz = DateTime::TimeZone::Tzfile->new(
|
|
Packit |
1c5982 |
name => "foo",
|
|
Packit |
1c5982 |
category => "bar",
|
|
Packit |
1c5982 |
is_olson => 1,
|
|
Packit |
1c5982 |
filename => "t/London.tz",
|
|
Packit |
1c5982 |
);
|
|
Packit |
1c5982 |
ok $tz;
|
|
Packit |
1c5982 |
ok !$tz->is_floating;
|
|
Packit |
1c5982 |
ok !$tz->is_utc;
|
|
Packit |
1c5982 |
ok $tz->is_olson;
|
|
Packit |
1c5982 |
is $tz->category, "bar";
|
|
Packit |
1c5982 |
is $tz->name, "foo";
|
|
Packit |
1c5982 |
ok $tz->has_dst_changes;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
$tz = DateTime::TimeZone::Tzfile->new(
|
|
Packit |
1c5982 |
name => "foo",
|
|
Packit |
1c5982 |
category => undef,
|
|
Packit |
1c5982 |
is_olson => 1,
|
|
Packit |
1c5982 |
filename => "t/London.tz",
|
|
Packit |
1c5982 |
);
|
|
Packit |
1c5982 |
ok $tz;
|
|
Packit |
1c5982 |
ok !$tz->is_floating;
|
|
Packit |
1c5982 |
ok !$tz->is_utc;
|
|
Packit |
1c5982 |
ok $tz->is_olson;
|
|
Packit |
1c5982 |
is $tz->category, undef;
|
|
Packit |
1c5982 |
is $tz->name, "foo";
|
|
Packit |
1c5982 |
ok $tz->has_dst_changes;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
1;
|