use strict;
use Test::More tests => 4;
use DateTime::Format::Pg 0.02;
my @ts = (
"2007-03-10 06:00:00+01",
"2007-03-10 06:00:00-0100",
);
foreach my $ts (@ts) {
my $dt = DateTime::Format::Pg->parse_datetime($ts);
my $dt_formated = DateTime::Format::Pg->format_datetime($dt);
# Pg will truncate timezone like +0100 to +01
$ts =~ s/([+\-]\d{2})$/${1}00/;
is($dt_formated, $ts, "format ok");
ok(DateTime::Format::Pg->parse_datetime($dt_formated));
}