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