use
strict;
use
warnings;
use
Test::More;
BEGIN
{
if
($@)
{
plan
skip_all
=>
'These tests require the Storable mdoule'
;
}
else
{
plan
tests
=> 2;
}
}
use
Storable;
my
$loc1
= DateTimeX::Lite::Locale->load(
'en_US'
);
my
$frozen
= Storable::nfreeze(
$loc1
);
#ok( length $frozen < 2000,
# 'the serialized locale object should not be immense' );
my
$loc2
= Storable::thaw(
$frozen
);
is(
$loc2
->id,
'en_US'
,
'thaw frozen locale object'
);
my
$loc3
= Storable::dclone(
$loc1
);
is(
$loc3
->id,
'en_US'
,
'dclone object'
);