1# $Id: parse_infinity.t 1061 2006-01-07 00:45:49Z lestrrat $
2use Test::More tests => 6;
3use DateTime::Format::Pg 0.02;
4
5{
6  my $dt = DateTime::Format::Pg->parse_datetime('infinity');
7  isa_ok($dt, 'DateTime::Infinite::Future');
8}
9
10{
11  my $dt = DateTime::Format::Pg->parse_date('infinity');
12  isa_ok($dt, 'DateTime::Infinite::Future');
13}
14
15{
16  my $dt = DateTime::Format::Pg->parse_timestamp('infinity');
17  isa_ok($dt, 'DateTime::Infinite::Future');
18}
19
20{
21  my $dt = DateTime::Format::Pg->parse_datetime('-infinity');
22  isa_ok($dt, 'DateTime::Infinite::Past');
23}
24
25{
26  my $dt = DateTime::Format::Pg->parse_date('-infinity');
27  isa_ok($dt, 'DateTime::Infinite::Past');
28}
29
30{
31  my $dt = DateTime::Format::Pg->parse_timestamp('-infinity');
32  isa_ok($dt, 'DateTime::Infinite::Past');
33}
34