Blob Blame History Raw
use warnings;
use strict;

use Test::More tests => 2;

require_ok "DateTime::TimeZone::Tzfile";

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

1;