1# $Id: parse_time.t 1055 2005-03-16 16:13:19Z cfaerber $
2use Test::More tests => 10;
3use DateTime::Format::Pg 0.08;
4
5{
6  my $dt = DateTime::Format::Pg->parse_time('19:18:17.123+09:30');
7  is($dt->hour(),              19, 'hour');
8  is($dt->minute(),            18, 'minute');
9  is($dt->second(),            17, 'second');
10  is($dt->nanosecond(), 123000000, 'nanosecond');
11  is($dt->offset(),  		0, 'tz offset');
12}
13
14{
15  my $dt = DateTime::Format::Pg->parse_timetz('19:18:17.123+09:30');
16  is($dt->hour(),              19, 'hour');
17  is($dt->minute(),            18, 'minute');
18  is($dt->second(),            17, 'second');
19  is($dt->nanosecond(), 123000000, 'nanosecond');
20  is($dt->offset(),  (9*60+30)*60, 'tz offset');
21}
22