1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
# $Id: /local/datetime/modules/DateTime-Format-Pg/trunk/t/format_date.t 8428 2003-05-30T14:04:49.000000Z 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 );
}
|
