From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

WYANT / DateTime-Fiction-JRRTolkien-Shire-0.907_01 / t / 06storable.t 

            

              
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

              
use strict;
use warnings;
use charnames qw{ :full };
use DateTime;
use DateTime::Fiction::JRRTolkien::Shire;
use Date::Tolkien::Shire::Data;
use Test::More;
eval {
    require Storable;
    1;
} or plan skip_all => q<Module 'Storable' not available>;
plan( tests => 8 );
my $fall = do {
    ( my $dtsd_version = Date::Tolkien::Shire::Data->VERSION() ) =~ s/ _ //smx;
    $dtsd_version ge '0.00601' ? 'fall' : 'the fall';
};
my $u_circ      = "\N{LATIN SMALL LETTER U WITH CIRCUMFLEX}";
my $shire;
$shire = DateTime::Fiction::JRRTolkien::Shire->new(
    year        => 7463,
    month       => 1,
    day         => 8,
);
is( Storable::dclone( $shire )->on_date, <<'EOD' );
Sunday 8 Afteryule 7463
The Company of the Ring reaches Hollin, 1419.
EOD
is( $shire->clone()->on_date, <<'EOD' );
Sunday 8 Afteryule 7463
The Company of the Ring reaches Hollin, 1419.
EOD
$shire = DateTime::Fiction::JRRTolkien::Shire->new(
    year        => 1419,
    month       => 1,
    day         => 15,
);
is( Storable::dclone( $shire )->on_date, <<"EOD" );
Sunday 15 Afteryule 1419
The Bridge of Khazad-dum, and $fall of Gandalf, 1419.
EOD
is( $shire->clone()->on_date, <<"EOD" );
Sunday 15 Afteryule 1419
The Bridge of Khazad-dum, and $fall of Gandalf, 1419.
EOD
$shire = DateTime::Fiction::JRRTolkien::Shire->new(
    year        => 1419,
    month       => 1,
    day         => 15,
    traditional => 1,
);
is( Storable::dclone( $shire )->on_date, <<"EOD" );
Sunnendei 15 Afteryule 1419
The Bridge of Khazad-dum, and $fall of Gandalf, 1419.
EOD
is( $shire->clone()->on_date, <<"EOD" );
Sunnendei 15 Afteryule 1419
The Bridge of Khazad-dum, and $fall of Gandalf, 1419.
EOD
$shire = DateTime::Fiction::JRRTolkien::Shire->new(
    year        => 1419,
    month       => 1,
    day         => 15,
    accented    => 1,
);
is( Storable::dclone( $shire )->on_date, <<"EOD" );
Sunday 15 Afteryule 1419
The Bridge of Khazad-d${u_circ}m, and $fall of Gandalf, 1419.
EOD
is( $shire->clone()->on_date, <<"EOD" );
Sunday 15 Afteryule 1419
The Bridge of Khazad-d${u_circ}m, and $fall of Gandalf, 1419.
EOD