1# $Id: parse_infinity.t 1061 2006-01-07 00:45:49Z lestrrat $ 2use Test::More tests => 6; 3use DateTime::Format::Pg 0.02; 4 5{ 6 my $dt = DateTime::Format::Pg->parse_datetime('infinity'); 7 isa_ok($dt, 'DateTime::Infinite::Future'); 8} 9 10{ 11 my $dt = DateTime::Format::Pg->parse_date('infinity'); 12 isa_ok($dt, 'DateTime::Infinite::Future'); 13} 14 15{ 16 my $dt = DateTime::Format::Pg->parse_timestamp('infinity'); 17 isa_ok($dt, 'DateTime::Infinite::Future'); 18} 19 20{ 21 my $dt = DateTime::Format::Pg->parse_datetime('-infinity'); 22 isa_ok($dt, 'DateTime::Infinite::Past'); 23} 24 25{ 26 my $dt = DateTime::Format::Pg->parse_date('-infinity'); 27 isa_ok($dt, 'DateTime::Infinite::Past'); 28} 29 30{ 31 my $dt = DateTime::Format::Pg->parse_timestamp('-infinity'); 32 isa_ok($dt, 'DateTime::Infinite::Past'); 33} 34