1# $Id: format_interval.t 3403 2006-03-31 22:04:06Z lestrrat $ 2use Test::More tests => 4; 3use DateTime 0.10; 4use DateTime::Duration; 5use DateTime::Format::Pg 0.02; 6 7%tests = ( 8 '@ 43 months 1 days' => { 9 years => 3, 10 months => 7, 11 days => 1, }, 12 13 '@ 210 days' => { 14 weeks => 30, }, 15 16 '@ 121 minutes 61 seconds' => { 17 hours => 1, 18 minutes => 61, 19 seconds => 61, }, 20 21 '@ 1 months 0.000003 seconds' => { 22 months => 1, 23 nanoseconds => 3000, }, 24); 25 26foreach my $result (keys %tests) { 27 my $dt = DateTime::Duration->new( %{$tests{$result}} ); 28 is( DateTime::Format::Pg->format_interval($dt), $result ); 29} 30