1#@!#!123s

32759 1#@!#!123s

: / proc / self / root / home / .cpan / build / Storable-3.25-0 / t /

Filename : leaks.t

back

#!./perl

use Test::More;
use Storable ();
BEGIN {
eval "use Test::LeakTrace";
plan 'skip_all' => 'Test::LeakTrace required for this tests' if $@;
}
plan 'tests' => 1;

{
    my $c = My::Simple->new;
    my $d;
    my $freezed = Storable::freeze($c);
    no_leaks_ok
    {
        $d = Storable::thaw($freezed);
        undef $d;
    };

    package My::Simple;
    sub new {
        my ($class, $arg) = @_;
        bless {t=>$arg}, $class;
    }
    sub STORABLE_freeze {
        return "abcderfgh";
    }
    sub STORABLE_attach {
        my ($class, $c, $serialized) = @_;
        return $class->new($serialized);
    }
}

{ # [cpan #97316]
  package TestClass;

  sub new {
    my $class = shift;
    return bless({}, $class);
  }
  sub STORABLE_freeze {
    die;
  }

  package main;
  my $obj = TestClass->new;
  eval { freeze($obj); };
}