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
|
# $Id$
use strict;
use Test::More tests => 19;
BEGIN {
use_ok 'DateTime::Format::Mail';
}
my $class = 'DateTime::Format::Mail';
# Can we format?
{
my $parse = sub {
my $type = shift;
my $obj = shift;
my $dates = shift || [
[ 1047278957 => '+0900' => 'Mon, 10 Mar 2003 15:49:17 +0900' ],
[ 1047278958 => '-0500' => 'Mon, 10 Mar 2003 01:49:18 -0500' ],
[ 1047192558 => '-0500' => 'Sun, 9 Mar 2003 01:49:18 -0500' ],
[ 1397018658 => 'Europe/Paris' => 'Wed, 9 Apr 2014 06:44:18 +0200' ],
[ 1397018658 => 'floating' => 'Wed, 9 Apr 2014 04:44:18 -0000' ],
[ 1397018658 => 'GMT' => 'Wed, 9 Apr 2014 04:44:18 +0000' ],
[ 1397018658 => 'UTC' => 'Wed, 9 Apr 2014 04:44:18 +0000' ],
[ 1397018658 => '+0000' => 'Wed, 9 Apr 2014 04:44:18 +0000' ],
[ time() => '+1000' => qr{^[A-Z][a-z][a-z],\s[\s\d]\d
\s[A-Z][a-z][a-z]\s\d{4}\s\d\d:\d\d:\d\d\s[\+\-]\d{4}$}x ],
];
for my $data (@$dates)
{
my ($epoch, $tz, $expected) = @$data;
my $dt = DateTime->from_epoch( epoch => $epoch, time_zone => $tz );
my $back = $obj->format_datetime( $dt );
if (ref $expected eq 'Regexp')
{
like ( $back => $expected,
"($type) Format of $epoch ($tz) is $expected" );
}
else
{
is ( $back => $expected,
"($type) Format of $epoch ($tz) is $expected" );
}
}
};
$parse->( 'obj', $class->new );
$parse->( 'class', $class );
}
|
