|
Packit |
1c5982 |
use warnings;
|
|
Packit |
1c5982 |
use strict;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
use Test::More tests => 2;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
require_ok "DateTime::TimeZone::Tzfile";
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
# This tests for proper binary mode handling of tzfiles. Specifically,
|
|
Packit |
1c5982 |
# if a tzfile is read in text mode then it may get mangled by translation
|
|
Packit |
1c5982 |
# of CRLF to LF. This Kaliningrad.tz file happens to contain a byte
|
|
Packit |
1c5982 |
# sequence that would be interpreted as CRLF in text mode.
|
|
Packit |
1c5982 |
my $tz = DateTime::TimeZone::Tzfile->new("t/Kaliningrad.tz");
|
|
Packit |
1c5982 |
ok 1;
|
|
Packit |
1c5982 |
|
|
Packit |
1c5982 |
1;
|