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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
use strict;
use warnings;
use Test::More;
use DateTime;
unless ( eval { require Storable; 1 } ) {
plan skip_all => 'Cannot load Storable';
}
{
my @dt = (
DateTime->new(
year => 1950,
hour => 1,
nanosecond => 1,
time_zone => 'America/Chicago',
locale => 'de'
),
DateTime::Infinite::Past->new,
DateTime::Infinite::Future->new,
);
foreach my $dt (@dt) {
my $copy = Storable::thaw( Storable::nfreeze($dt) );
is(
$copy->time_zone->name, $dt->time_zone->name,
'Storable freeze/thaw preserves tz'
);
is(
ref $copy->locale, ref $dt->locale,
'Storable freeze/thaw preserves locale'
);
is(
$copy->year, $dt->year,
'Storable freeze/thaw preserves rd values'
);
is(
$copy->hour, $dt->hour,
'Storable freeze/thaw preserves rd values'
);
is(
$copy->nanosecond, $dt->nanosecond,
'Storable freeze/thaw preserves rd values'
);
}
}
{
my $dt1 = DateTime->now( locale => 'en-US' );
my $dt2 = Storable::dclone($dt1);
my $dt3 = Storable::thaw( Storable::nfreeze($dt2) );
is(
$dt1->iso8601, $dt2->iso8601,
'dclone produces date equal to original'
);
is(
$dt2->iso8601, $dt3->iso8601,
'explicit freeze and thaw produces date equal to original'
);
# Back-compat shim for new DateTime::Locale. Remove once DT::Locale based
# on CLDR 28+ is released.
my $meth = $dt1->locale->can('code') ? 'code' : 'id';
my $orig_code = $dt1->locale->$meth;
is(
$dt2->locale->$meth,
$orig_code,
'check locale id after dclone'
);
is(
$dt3->locale->$meth,
$orig_code,
'check locale id after explicit freeze/thaw'
);
}
{
package Formatter;
sub format_datetime { }
}
{
my $dt = DateTime->new(
year => 2004,
formatter => 'Formatter',
);
my $copy = Storable::thaw( Storable::nfreeze($dt) );
is(
$dt->formatter, $copy->formatter,
'Storable freeze/thaw preserves formatter'
);
}
done_testing();
|
