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
34
35
36
|
use DateTimeX::Auto ':auto';
use Test::More tests => defined($UNIVERSAL::ref::VERSION) ? 9 : 6;
if (defined($UNIVERSAL::ref::VERSION)) {
is(ref('2000-01-01'), 'DateTime', 'yyyy-mm-dd');
is(ref('2000-01-01T12:00:00'), 'DateTime', 'yyyy-mm-ddThh:mm:ss');
}
{
no DateTimeX::Auto;
DateTimeX::Auto->import('d');
local @_ = ();
is(ref(&d), 'DateTime', '&d works with no argument.')
if defined($UNIVERSAL::ref::VERSION);
is(d('2000-01-01T12:00:00.1234567891') , '2000-01-01T12:00:00.1234567890',
'Precision past nanoseconds supported');
is(d('2010-01-01Z') , '2010-01-01Z',
'Trailing Z allowed on dates.');
is(d('2010-01-01T12:00:00Z') , '2010-01-01T12:00:00Z',
'Trailing Z allowed on datetimes.');
is(d('2010-01-01T12:00:00.123456Z') , '2010-01-01T12:00:00.123456Z',
'Trailing Z allowed on fractional datetimes.');
ok(d('2010-01-01')->time_zone->is_floating,
'Default timezone is floating.');
ok(d('2010-01-01Z')->time_zone->is_utc,
'Trailing Z forces UTC.');
}
|
