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