1use strict; 2use warnings; 3 4use Test::More tests => 1; 5 6use DateTime; 7use DateTime::Format::Pg; 8 9my $dt1 = DateTime->new( 10 year => 2010, 11 month => 6, 12 day => 21, 13 hour => 10, 14 minute => 11, 15 second => 9, 16 nanosecond => 66727999, 17 time_zone => 'Australia/Brisbane', 18 19); 20 21my $ts1 = DateTime::Format::Pg->format_datetime($dt1); 22 23my $dt2 = DateTime::Format::Pg->parse_datetime($ts1); 24my $ts2 = DateTime::Format::Pg->format_datetime($dt2); 25 26is($ts1, $ts2, 'fractional timestamptz was parsed/formatted correctly'); 27