3 # $Id: tied_items.t,v 1.0 2000/09/01 19:40:42 ram Exp $
5 # Copyright (c) 1995-2000, Raphael Manfredi
7 # You may redistribute only under the same terms as Perl 5, as specified
8 # in the README file that comes with the distribution.
12 # Tests ref to items in tied hash/array structures.
18 @INC = ('.', '../lib', '../ext/Storable/t');
22 require Config; import Config;
23 if ($ENV{PERL_CORE} and $Config{'extensions'} !~ /\bStorable\b/) {
24 print "1..0 # Skip: Storable was not built\n";
35 use Storable qw(dclone);
39 sub H::TIEHASH { bless \(my $x), "H" }
40 sub H::FETCH { $h_fetches++; $_[1] - 70 }
47 ok 1, $h_fetches == 0;
48 ok 2, $$ref2 eq $$ref;
50 ok 4, $h_fetches == 2;
54 sub A::TIEARRAY { bless \(my $x), "A" }
55 sub A::FETCH { $a_fetches++; $_[1] - 70 }
62 ok 5, $a_fetches == 0;
63 ok 6, $$ref2 eq $$ref;
65 # I don't understand why it's 3 and not 2
66 ok 8, $a_fetches == 3;