format_date.t   [plain text]

# $Id: format_date.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 3;
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 );
}