# $Id: format_date.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 5;
use DateTime 0.10;
use DateTime::Format::Pg 0.02;

%tests = (
  '2003-07-01' => {
    year      => 2003,
    month     => 7,
    day	      => 1, },

  '1900-01-01' => {
    year      => 1900,
    month     => 1,
    day	      => 1, },
    
  '0001-12-24 BC' => {
    year      => 0,
    month     => 12,
    day	      => 24, },
);

foreach my $result (keys %tests) {
  my $dt = DateTime->new( %{$tests{$result}} );
  is( DateTime::Format::Pg->format_date($dt), $result );
}

is(
    DateTime::Format::Pg->format_date(DateTime::Infinite::Future->new),
    'infinity'
);

is(
    DateTime::Format::Pg->format_date(DateTime::Infinite::Past->new),
    '-infinity'
);