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