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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
use strict;
use warnings;
use XML::Atom::SimpleFeed;
package XML::Atom::SimpleFeed;
use Test::More tests => 14;
my $bigbang = '<d>1970-01-01T00:00:00Z</d>';
is date_construct( d => 0 ), $bigbang, 'correct RFC 3339 for Unix times';
SKIP: {
skip 'missing Time::Piece', 2 unless eval { require Time::Piece };
is date_construct( d => Time::Piece->gmtime(0) ), $bigbang, 'correct RFC 3339 for Time::Piece objects';
is date_construct( d => Time::Piece->localtime(0) ), $bigbang, '... regardless of local timezone';
};
SKIP: {
skip 'missing DateTime', 2 unless eval { require DateTime };
my @tz = map +( time_zone => $_ ), grep defined, eval { DateTime::TimeZone->new( name => 'local' ) };
is date_construct( d => DateTime->from_epoch( epoch => 0 ) ), $bigbang, 'correct RFC 3339 for DateTime objects';
is date_construct( d => DateTime->from_epoch( epoch => 0, @tz ) ), $bigbang, '... regardless of local timezone' if @tz;
skip 'failed DateTime::TimeZone detection', 1 unless @tz;
};
SKIP: {
skip 'missing Time::Moment', 2 unless eval { require Time::Moment };
my $tm = Time::Moment->from_epoch(0);
is date_construct( d => $tm ), $bigbang, 'correct RFC 3339 for Time::Moment objects';
$tm = $tm->with_offset_same_instant( Time::Moment->now->offset );
is date_construct( d => $tm ), $bigbang, '... regardless of local timezone';
};
SKIP: {
skip 'missing Panda::Date', 2 unless eval { require Panda::Date };
is date_construct( d => Panda::Date->new(0, 'UTC') ), $bigbang, 'correct RFC 3339 for Class::Date objects';
is date_construct( d => Panda::Date->new(0) ), $bigbang, '... regardless of local timezone';
};
SKIP: {
skip 'missing Class::Date', 2 unless eval { require Class::Date };
is date_construct( d => Class::Date::gmdate('00') ), $bigbang, 'correct RFC 3339 for Class::Date objects';
is date_construct( d => Class::Date::localdate('00') ), $bigbang, '... regardless of local timezone';
};
SKIP: {
skip 'missing Time::Object', 2 unless eval { require Time::Object };
is date_construct( d => Time::Object::gmtime(0) ), $bigbang, 'correct RFC 3339 for Time::Object objects';
is date_construct( d => Time::Object::localtime(0) ), $bigbang, '... regardless of local timezone';
};
SKIP: {
skip 'missing Time::Date', 1 unless eval { require Time::Date; Time::Date->VERSION('0.05') };
is date_construct( d => Time::Date->new_epoch(0) ), $bigbang, 'correct RFC 3339 for Time::Date objects';
};
|
