1# $Id: format_date.t 1039 2003-05-30 14:04:49Z cfaerber $ 2use Test::More tests => 5; 3use DateTime 0.10; 4use DateTime::Format::Pg 0.02; 5 6%tests = ( 7 '2003-07-01' => { 8 year => 2003, 9 month => 7, 10 day => 1, }, 11 12 '1900-01-01' => { 13 year => 1900, 14 month => 1, 15 day => 1, }, 16 17 '0001-12-24 BC' => { 18 year => 0, 19 month => 12, 20 day => 24, }, 21); 22 23foreach my $result (keys %tests) { 24 my $dt = DateTime->new( %{$tests{$result}} ); 25 is( DateTime::Format::Pg->format_date($dt), $result ); 26} 27 28is( 29 DateTime::Format::Pg->format_date(DateTime::Infinite::Future->new), 30 'infinity' 31); 32 33is( 34 DateTime::Format::Pg->format_date(DateTime::Infinite::Past->new), 35 '-infinity' 36); 37