1# $Id: tz_1901_2038.t 1039 2003-05-30 14:04:49Z cfaerber $ 2use Test::More tests => 4; 3use DateTime 0.10; 4use DateTime::TimeZone 0.12; 5use DateTime::Format::Pg 0.02; 6 7# 2038-01-18 23:59:59+00 8# 2038-01-19 00:00:00 9# 1901-12-14 00:00:00+00 10# 1901-12-13 23:59:59 11 12my $dt; 13 14$dt = DateTime::Format::Pg->parse_timestamptz('1901-12-13 23:59:59'); 15ok($dt->time_zone->is_utc); 16 17$dt = DateTime::Format::Pg->parse_timestamptz('2038-01-19 00:00:00'); 18ok($dt->time_zone->is_utc); 19 20$dt = DateTime::Format::Pg->parse_timestamptz('1901-12-14 00:00:00'); 21ok($dt->time_zone->is_floating); 22 23$dt = DateTime::Format::Pg->parse_timestamptz('2038-01-18 23:59:00'); 24ok($dt->time_zone->is_floating); 25