Lines Matching refs:i2
60 our ($i1, $i2, $k1, $k2) = (3, 1, 'foo', 'c');
67 ::is($a[$i1]{$k1}[$i2]{$k2}, 3, 'fetch: pkg indices');
68 ::is($r->[$i1]{$k1}[$i2]{$k2}, 3, 'fetch: deref pkg indices');
79 ::is($a[$i1]{$k1}[$i2]{$k2} = 7, 7, 'store: pkg indices');
80 ::is($a[$i1]{$k1}[$i2]{$k2}, 7, 'store: pkg indices 2');
81 ::is($r->[$i1]{$k1}[$i2]{$k2} = 9, 9, 'store: deref pkg indices');
82 ::is($r->[$i1]{$k1}[$i2]{$k2}, 9, 'store: deref pkg indices 2');
101 ::is(local $a[$i1]{$k1}[$i2]{$k2} = 21, 21, 'local pkg indices');
102 ::is($a[$i1]{$k1}[$i2]{$k2}, 21, 'local pkg indices 2');
104 ::is($a[$i1]{$k1}[$i2]{$k2}, 15, 'local pkg indices 3');
121 ::ok(exists $a[$i1]{$k1}[$i2]{$k2}, 'exists: pkg indices');
122 ::ok(exists $r->[$i1]{$k1}[$i2]{$k2}, 'exists: deref pkg indices');
132 ::is(delete $a[$i1]{$k1}[$i2]{$k3}, 1, 'delete: pkg indices');
133 ::is(delete $r->[$i1]{$k1}[$i2]{d}, 4, 'delete: deref pkg indices');
141 ::ok(!exists $a[$i1]{$k1}[$i2]{$k3}, '!exists: pkg indices');
142 ::ok(!exists $r->[$i1]{$k1}[$i2]{$k3}, '!exists: deref pkg indices');