06storable.t   [plain text]

use strict;
use warnings;

use Test::More;

BEGIN {
    eval { require Storable };

    if ($@) {
        plan skip_all => 'These tests require the Storable mdoule';
    }
    else {
        plan tests => 3;
    }
}

use DateTime::Locale;

use Storable;

my $loc1   = DateTime::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' );