1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
#!./perl
# $Id: tied_items.t,v 1.0 2000/09/01 19:40:42 ram Exp $
#
# Copyright (c) 1995-2000, Raphael Manfredi
#
# You may redistribute only under the same terms as Perl 5, as specified
# in the README file that comes with the distribution.
#
# $Log: tied_items.t,v $
# Revision 1.0 2000/09/01 19:40:42 ram
# Baseline for first official release.
#
#
# Tests ref to items in tied hash/array structures.
#
sub BEGIN {
chdir('t') if -d 't';
@INC = '.';
push @INC, '../lib';
require Config; import Config;
if ($Config{'extensions'} !~ /\bStorable\b/) {
print "1..0 # Skip: Storable was not built\n";
exit 0;
}
require 'lib/st-dump.pl';
}
sub ok;
$^W = 0;
print "1..8\n";
use Storable qw(dclone);
$h_fetches = 0;
sub H::TIEHASH { bless \(my $x), "H" }
sub H::FETCH { $h_fetches++; $_[1] - 70 }
tie %h, "H";
$ref = \$h{77};
$ref2 = dclone $ref;
ok 1, $h_fetches == 0;
ok 2, $$ref2 eq $$ref;
ok 3, $$ref2 == 7;
ok 4, $h_fetches == 2;
$a_fetches = 0;
sub A::TIEARRAY { bless \(my $x), "A" }
sub A::FETCH { $a_fetches++; $_[1] - 70 }
tie @a, "A";
$ref = \$a[78];
$ref2 = dclone $ref;
ok 5, $a_fetches == 0;
ok 6, $$ref2 eq $$ref;
ok 7, $$ref2 == 8;
# I don't understand why it's 3 and not 2
ok 8, $a_fetches == 3;
|
