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