]> git.vpit.fr Git - perl/modules/autovivification.git/blob - t/31-array-fast.t
Cover a_ck_padsv()
[perl/modules/autovivification.git] / t / 31-array-fast.t
1 #!perl -T
2
3 use strict;
4 use warnings;
5
6 use Test::More tests => 9 * 3 * 274;
7
8 use lib 't/lib';
9 use autovivification::TestCases;
10
11 while (<DATA>) {
12  1 while chomp;
13  next unless /#/;
14  testcase_ok($_, '@');
15 }
16
17 __DATA__
18
19 --- fetch ---
20
21 $x # $x->[0] # '', undef, [ ]
22 $x # $x->[0] # '', undef, undef #
23 $x # $x->[0] # '', undef, undef # +fetch
24 $x # $x->[0] # '', undef, [ ] # +exists
25 $x # $x->[0] # '', undef, [ ] # +delete
26 $x # $x->[0] # '', undef, [ ] # +store
27
28 $x # $x->[0] # '', undef, [ ] # -fetch
29 $x # $x->[0] # '', undef, [ ] # +fetch -fetch
30 $x # $x->[0] # '', undef, undef # -fetch +fetch
31 $x # $x->[0] # '', undef, undef # +fetch -exists
32
33 $x # $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch
34 $x # $x->[0] # '', undef, [ ] # +strict +exists
35 $x # $x->[0] # '', undef, [ ] # +strict +delete
36 $x # $x->[0] # '', undef, [ ] # +strict +store
37
38 $x # $x->[0]->[1] # '', undef, [ [ ] ]
39 $x # $x->[0]->[1] # '', undef, undef #
40 $x # $x->[0]->[1] # '', undef, undef # +fetch
41 $x # $x->[0]->[1] # '', undef, [ [ ] ] # +exists
42 $x # $x->[0]->[1] # '', undef, [ [ ] ] # +delete
43 $x # $x->[0]->[1] # '', undef, [ [ ] ] # +store
44
45 $x # $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch
46 $x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists
47 $x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +delete
48 $x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store
49
50 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +fetch
51 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +fetch
52 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +exists
53 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +exists
54 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +delete
55 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +delete
56 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +store
57 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +store
58
59 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +fetch
60 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +fetch
61 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +exists
62 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +exists
63 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +delete
64 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +delete
65 $x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +store
66 $x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +store
67
68 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch
69 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch
70 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch
71 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists
72 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +exists
73 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists
74 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete
75 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +delete
76 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +delete
77 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store
78 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +store
79 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store
80
81 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch
82 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch
83 $x->[0]->[1] = 1 # $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +fetch
84 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists
85 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists
86 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +exists
87 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete
88 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete
89 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +delete
90 $x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store
91 $x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store
92 $x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +store
93
94 --- aliasing ---
95
96 $x # 1 for $x->[0]; () # '', undef, [ undef ]
97 $x # 1 for $x->[0]; () # '', undef, [ undef ] #
98 $x # 1 for $x->[0]; () # '', undef, [ undef ] # +fetch
99 $x # 1 for $x->[0]; () # '', undef, [ undef ] # +exists
100 $x # 1 for $x->[0]; () # '', undef, [ undef ] # +delete
101 $x # 1 for $x->[0]; () # qr/^Can't vivify reference/, undef, undef # +store
102
103 $x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ]
104 $x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] #
105 $x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +fetch
106 $x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +exists
107 $x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +delete
108 $x # $_ = 1 for $x->[0]; () # qr/^Can't vivify reference/, undef, undef # +store
109
110 $x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +fetch
111 $x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +fetch
112 $x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +exists
113 $x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +exists
114 $x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +delete
115 $x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +delete
116 $x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +store
117 $x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +store
118
119 --- dereferencing ---
120
121 $x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef
122 $x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef #
123 $x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +fetch
124 $x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +exists
125 $x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +delete
126 $x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +store
127
128 $x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +fetch
129 $x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +exists
130 $x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +delete
131 $x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +store
132
133 --- exists ---
134
135 $x # exists $x->[0] # '', '', [ ]
136 $x # exists $x->[0] # '', '', undef #
137 $x # exists $x->[0] # '', '', [ ] # +fetch
138 $x # exists $x->[0] # '', '', undef # +exists
139 $x # exists $x->[0] # '', '', [ ] # +delete
140 $x # exists $x->[0] # '', '', [ ] # +store
141
142 $x # exists $x->[0] # '', '', [ ] # +strict +fetch
143 $x # exists $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists
144 $x # exists $x->[0] # '', '', [ ] # +strict +delete
145 $x # exists $x->[0] # '', '', [ ] # +strict +store
146
147 $x # exists $x->[0]->[1] # '', '', [ [ ] ]
148 $x # exists $x->[0]->[1] # '', '', undef #
149 $x # exists $x->[0]->[1] # '', '', [ [ ] ] # +fetch
150 $x # exists $x->[0]->[1] # '', '', undef # +exists
151 $x # exists $x->[0]->[1] # '', '', [ [ ] ] # +delete
152 $x # exists $x->[0]->[1] # '', '', [ [ ] ] # +store
153
154 $x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +fetch
155 $x # exists $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists
156 $x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +delete
157 $x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +store
158
159 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +fetch
160 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +fetch
161 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +exists
162 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +exists
163 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +delete
164 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +delete
165 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +store
166 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +store
167
168 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +fetch
169 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +fetch
170 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +exists
171 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +exists
172 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +delete
173 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +delete
174 $x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +store
175 $x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +store
176
177 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch
178 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +fetch
179 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +fetch
180 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists
181 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +exists
182 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ] ] # +exists
183 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete
184 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +delete
185 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +delete
186 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store
187 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +store
188 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +store
189
190 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch
191 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +fetch
192 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +fetch
193 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists
194 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +exists
195 $x->[0]->[1] = 1 # exists $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +exists
196 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete
197 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +delete
198 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +delete
199 $x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store
200 $x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +store
201 $x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +store
202
203 --- delete ---
204
205 $x # delete $x->[0] # '', undef, [ ]
206 $x # delete $x->[0] # '', undef, undef #
207 $x # delete $x->[0] # '', undef, [ ] # +fetch
208 $x # delete $x->[0] # '', undef, [ ] # +exists
209 $x # delete $x->[0] # '', undef, undef # +delete
210 $x # delete $x->[0] # '', undef, [ ] # +store
211
212 $x # delete $x->[0] # '', undef, [ ] # +strict +fetch
213 $x # delete $x->[0] # '', undef, [ ] # +strict +exists
214 $x # delete $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete
215 $x # delete $x->[0] # '', undef, [ ] # +strict +store
216
217 $x # delete $x->[0]->[1] # '', undef, [ [ ] ]
218 $x # delete $x->[0]->[1] # '', undef, undef #
219 $x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +fetch
220 $x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +exists
221 $x # delete $x->[0]->[1] # '', undef, undef # +delete
222 $x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +store
223
224 $x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +fetch
225 $x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists
226 $x # delete $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete
227 $x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store
228
229 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +fetch
230 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +fetch
231 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +exists
232 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +exists
233 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +delete
234 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +delete
235 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +store
236 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +store
237
238 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +fetch
239 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +fetch
240 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +exists
241 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +exists
242 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +delete
243 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +delete
244 $x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +store
245 $x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +store
246
247 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +fetch
248 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +fetch
249 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +fetch
250 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +exists
251 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +exists
252 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists
253 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +delete
254 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +delete
255 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ] ]# +delete
256 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +store
257 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +store
258 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store
259
260 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +fetch
261 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch
262 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +fetch
263 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +exists
264 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists
265 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +exists
266 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +delete
267 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete
268 $x->[0]->[1] = 1 # delete $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +delete
269 $x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +store
270 $x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store
271 $x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +store
272
273 --- store ---
274
275 $x # $x->[0] = 1 # '', 1, [ 1 ]
276 $x # $x->[0] = 1 # '', 1, [ 1 ] #
277 $x # $x->[0] = 1 # '', 1, [ 1 ] # +fetch
278 $x # $x->[0] = 1 # '', 1, [ 1 ] # +exists
279 $x # $x->[0] = 1 # '', 1, [ 1 ] # +delete
280 $x # $x->[0] = 1 # qr/^Can't vivify reference/, undef, undef # +store
281
282 $x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +fetch
283 $x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +exists
284 $x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +delete
285 $x # $x->[0] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store
286
287 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ]
288 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] #
289 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +fetch
290 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +exists
291 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +delete
292 $x # $x->[0]->[1] = 1 # qr/^Can't vivify reference/, undef, undef # +store
293
294 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +fetch
295 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +exists
296 $x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +delete
297 $x # $x->[0]->[1] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store
298
299 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +fetch
300 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +fetch
301 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +exists
302 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +exists
303 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +delete
304 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +delete
305 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +store
306 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +store
307
308 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +fetch
309 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +fetch
310 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +exists
311 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +exists
312 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +delete
313 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +delete
314 $x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +store
315 $x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +store
316
317 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +fetch
318 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +fetch
319 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +fetch
320 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +exists
321 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +exists
322 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +exists
323 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +delete
324 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +delete
325 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +delete
326 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +store
327 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +store
328 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Can't vivify reference/, undef, [ [ undef, 1 ] ] # +store
329
330 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +fetch
331 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +fetch
332 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +fetch
333 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +exists
334 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +exists
335 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +exists
336 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +delete
337 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +delete
338 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +delete
339 $x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +store
340 $x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +store
341 $x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +store