File: rt29635.t

package info (click to toggle)
libdatetime-format-pg-perl 0.16005-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 268 kB
  • ctags: 129
  • sloc: perl: 1,581; makefile: 2
file content (14 lines) | stat: -rw-r--r-- 205 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
use strict;
use Test::More (tests => 4);

BEGIN
{
    use_ok("DateTime::Format::Pg");
}

my $dt = DateTime::Format::Pg->parse_time('16:05:00');

is($dt->hour, 16);
is($dt->minute, 5);
is($dt->second, 0);