22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang# Copyright (c) 1995-2000, Raphael Manfredi
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang# You may redistribute only under the same terms as Perl 5, as specified
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang# in the README file that comes with the distribution.
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangprint "1..16\n";
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang$d = thaw freeze [$a, $a];
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang$d->[0][0]++;
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang my $self = bless {}, shift;
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang my $self = bless {}, shift;
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangok 9, $a + $a == 314;
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangok 12, $b + $b == 314;
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang# nfreeze data generated by make_overload.pl
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangmy $f = unpack 'u', q{7!084$0Q(05-?3U9%4DQ/040*!'-N;W<`};
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang# see note at the end of do_retrieve in Storable.xs about why this test has to
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fang# use a reference to an overloaded reference, rather than just a reference.
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangmy $t = eval {thaw $f};
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangprint "# $@" if $@;
22a84b8d79248a611e4ba663a268d3c4bed054acQuaker Fangok 13, $@ eq "";