view release on metacpan or  search on metacpan

t/thaw_fail.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 2;
use Test::Fatal;
use Dancer::Serializer::UUEncode;

my $s    = Dancer::Serializer::UUEncode->new;
my $data = $s->serialize( { this => 'will fail' } );

{
    no warnings qw/redefine once/;
    *Dancer::Serializer::UUEncode::thaw = sub { return };
}

like(
    exception { $s->deserialize($data) },
    qr/^Couldn't thaw unpacked content/,
    'Bad thaw throws exception',
);

# try to deserialize undefed data
ok(
    exception { $s->deserialize(undef) },
    'deserializing undefed data fails',
);