5 unshift @INC, 't/compat' if $] < 5.006002;
6 require Config; import Config;
7 if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
8 print "1..0 # Skip: Storable was not built\n";
14 use Test::More tests => 3;
20 sub TIEHASH { bless({}, $_[0]) }
23 $f = Storable::freeze(\$_[2]);
29 sub TIEARRAY { bless({}, $_[0]) }
32 $f = Storable::freeze(\$_[2]);
38 sub TIESCALAR { bless({}, $_[0]) }
41 $f = Storable::freeze(\$_[1]);
48 tie $s, "TIED_SCALAR";
54 is $f, Storable::freeze(\111);
58 is $f, Storable::freeze(\222);
62 is $f, Storable::freeze(\333);