1use strict; 2use Test::More (tests => 4); 3 4BEGIN 5{ 6 use_ok("DateTime::Format::Pg"); 7} 8 9my $dt = DateTime::Format::Pg->parse_time('16:05:00'); 10 11is($dt->hour, 16); 12is($dt->minute, 5); 13is($dt->second, 0); 14 15