1use strict;
2use warnings;
3
4use Test::More;
5
6BEGIN {
7    eval { require Storable };
8
9    if ($@) {
10        plan skip_all => 'These tests require the Storable mdoule';
11    }
12    else {
13        plan tests => 3;
14    }
15}
16
17use DateTime::Locale;
18
19use Storable;
20
21my $loc1   = DateTime::Locale->load('en_US');
22my $frozen = Storable::nfreeze($loc1);
23
24ok(
25    length $frozen < 2000,
26    'the serialized locale object should not be immense'
27);
28
29my $loc2 = Storable::thaw($frozen);
30
31is( $loc2->id, 'en_US', 'thaw frozen locale object' );
32
33my $loc3 = Storable::dclone($loc1);
34
35is( $loc3->id, 'en_US', 'dclone object' );
36