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