t/21-array.t

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