File: 1basic.t

package info (click to toggle)
libdatetime-format-pg-perl 0.16014-1
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, sid, trixie
  • size: 276 kB
  • sloc: makefile: 492; perl: 427
file content (17 lines) | stat: -rw-r--r-- 354 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
# $Id: 1basic.t 1039 2003-05-30 14:04:49Z cfaerber $
use Test::More tests => 3;
BEGIN { 
  use_ok('DateTime::Format::Pg')
};

{
  my $dt = DateTime::Format::Pg->parse_datetime('2003-01-01 19:00:00.123+09:30');
  isa_ok($dt,'DateTime');
}

{
  eval {
    my $dt = DateTime::Format::Pg->parse_datetime('THIS DATE IS INVALID');
    fail();
  } || pass();
}