parse_infinity.t   [plain text]


# $Id$
use Test::More tests => 4;
use DateTime::Format::Pg 0.02;

{
  my $dt = DateTime::Format::Pg->parse_datetime('infinity');
  isa_ok($dt, 'DateTime::Infinite::Future');
}

{
  my $dt = DateTime::Format::Pg->parse_timestamp('infinity');
  isa_ok($dt, 'DateTime::Infinite::Future');
}

{
  my $dt = DateTime::Format::Pg->parse_datetime('-infinity');
  isa_ok($dt, 'DateTime::Infinite::Past');
}

{
  my $dt = DateTime::Format::Pg->parse_timestamp('-infinity');
  isa_ok($dt, 'DateTime::Infinite::Past');
}