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