X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F21-array.t;fp=t%2F21-array.t;h=0000000000000000000000000000000000000000;hb=f46c60eca42ac927f26e0d332112a3a5eae80269;hp=2930304683b5f42810e973916550222eecd4a031;hpb=b47bb780966680623d37ce471e44f64ae12a5863;p=perl%2Fmodules%2Fautovivification.git

diff --git a/t/21-array.t b/t/21-array.t
deleted file mode 100644
index 2930304..0000000
--- a/t/21-array.t
+++ /dev/null
@@ -1,341 +0,0 @@
-#!perl -T
-
-use strict;
-use warnings;
-
-use Test::More tests => 6 * 3 * 274;
-
-use lib 't/lib';
-use autovivification::TestCases;
-
-while (<DATA>) {
- 1 while chomp;
- next unless /#/;
- testcase_ok($_, '@');
-}
-
-__DATA__
-
---- fetch ---
-
-$x # $x->[0] # '', undef, [ ]
-$x # $x->[0] # '', undef, undef #
-$x # $x->[0] # '', undef, undef # +fetch
-$x # $x->[0] # '', undef, [ ] # +exists
-$x # $x->[0] # '', undef, [ ] # +delete
-$x # $x->[0] # '', undef, [ ] # +store
-
-$x # $x->[0] # '', undef, [ ] # -fetch
-$x # $x->[0] # '', undef, [ ] # +fetch -fetch
-$x # $x->[0] # '', undef, undef # -fetch +fetch
-$x # $x->[0] # '', undef, undef # +fetch -exists
-
-$x # $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch
-$x # $x->[0] # '', undef, [ ] # +strict +exists
-$x # $x->[0] # '', undef, [ ] # +strict +delete
-$x # $x->[0] # '', undef, [ ] # +strict +store
-
-$x # $x->[0]->[1] # '', undef, [ [ ] ]
-$x # $x->[0]->[1] # '', undef, undef #
-$x # $x->[0]->[1] # '', undef, undef # +fetch
-$x # $x->[0]->[1] # '', undef, [ [ ] ] # +exists
-$x # $x->[0]->[1] # '', undef, [ [ ] ] # +delete
-$x # $x->[0]->[1] # '', undef, [ [ ] ] # +store
-
-$x # $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +fetch
-$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists
-$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +delete
-$x # $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store
-
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +fetch
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +fetch
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +exists
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +exists
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +delete
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +delete
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +store
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +store
-
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +fetch
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +fetch
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +exists
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +exists
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +delete
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +delete
-$x->[0] = 1 # $x->[0] # '', 1, [ 1 ] # +strict +store
-$x->[0] = 1 # $x->[1] # '', undef, [ 1 ] # +strict +store
-
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ] ] # +fetch
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +exists
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +delete
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +delete
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +store
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store
-
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +exists
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +delete
-$x->[0]->[1] = 1 # $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store
-$x->[0]->[1] = 1 # $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store
-$x->[0]->[1] = 1 # $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +strict +store
-
---- aliasing ---
-
-$x # 1 for $x->[0]; () # '', undef, [ undef ]
-$x # 1 for $x->[0]; () # '', undef, [ undef ] #
-$x # 1 for $x->[0]; () # '', undef, [ undef ] # +fetch
-$x # 1 for $x->[0]; () # '', undef, [ undef ] # +exists
-$x # 1 for $x->[0]; () # '', undef, [ undef ] # +delete
-$x # 1 for $x->[0]; () # qr/^Can't vivify reference/, undef, undef # +store
-
-$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ]
-$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] #
-$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +fetch
-$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +exists
-$x # $_ = 1 for $x->[0]; () # '', undef, [ 1 ] # +delete
-$x # $_ = 1 for $x->[0]; () # qr/^Can't vivify reference/, undef, undef # +store
-
-$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +fetch
-$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +fetch
-$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +exists
-$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +exists
-$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +delete
-$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +delete
-$x->[0] = 1 # 1 for $x->[0]; () # '', undef, [ 1 ] # +store
-$x->[0] = 1 # 1 for $x->[1]; () # '', undef, [ 1, undef ] # +store
-
---- dereferencing ---
-
-$x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef
-$x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef #
-$x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +fetch
-$x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +exists
-$x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +delete
-$x # no warnings 'uninitialized'; my @a = @$x; () # ($strict ? qr/^Can't use an undefined value as an ARRAY reference/ : ''), undef, undef # +store
-
-$x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +fetch
-$x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +exists
-$x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +delete
-$x->[0] = 1 # my @a = @$x; () # '', undef, [ 1 ] # +store
-
---- exists ---
-
-$x # exists $x->[0] # '', '', [ ]
-$x # exists $x->[0] # '', '', undef #
-$x # exists $x->[0] # '', '', [ ] # +fetch
-$x # exists $x->[0] # '', '', undef # +exists
-$x # exists $x->[0] # '', '', [ ] # +delete
-$x # exists $x->[0] # '', '', [ ] # +store
-
-$x # exists $x->[0] # '', '', [ ] # +strict +fetch
-$x # exists $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists
-$x # exists $x->[0] # '', '', [ ] # +strict +delete
-$x # exists $x->[0] # '', '', [ ] # +strict +store
-
-$x # exists $x->[0]->[1] # '', '', [ [ ] ]
-$x # exists $x->[0]->[1] # '', '', undef #
-$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +fetch
-$x # exists $x->[0]->[1] # '', '', undef # +exists
-$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +delete
-$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +store
-
-$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +fetch
-$x # exists $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +exists
-$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +delete
-$x # exists $x->[0]->[1] # '', '', [ [ ] ] # +strict +store
-
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +fetch
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +fetch
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +exists
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +exists
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +delete
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +delete
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +store
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +store
-
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +fetch
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +fetch
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +exists
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +exists
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +delete
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +delete
-$x->[0] = 1 # exists $x->[0] # '', 1, [ 1 ] # +strict +store
-$x->[0] = 1 # exists $x->[1] # '', '', [ 1 ] # +strict +store
-
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +fetch
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +fetch
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +fetch
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +exists
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +exists
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ] ] # +exists
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +delete
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +delete
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +delete
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +store
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +store
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +store
-
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +fetch
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +exists
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +exists
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +exists
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +delete
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +delete
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +delete
-$x->[0]->[1] = 1 # exists $x->[0]->[1] # '', 1, [ [ undef, 1 ] ] # +strict +store
-$x->[0]->[1] = 1 # exists $x->[0]->[3] # '', '', [ [ undef, 1 ] ] # +strict +store
-$x->[0]->[1] = 1 # exists $x->[2]->[3] # '', '', [ [ undef, 1 ], undef, [ ] ] # +strict +store
-
---- delete ---
-
-$x # delete $x->[0] # '', undef, [ ]
-$x # delete $x->[0] # '', undef, undef #
-$x # delete $x->[0] # '', undef, [ ] # +fetch
-$x # delete $x->[0] # '', undef, [ ] # +exists
-$x # delete $x->[0] # '', undef, undef # +delete
-$x # delete $x->[0] # '', undef, [ ] # +store
-
-$x # delete $x->[0] # '', undef, [ ] # +strict +fetch
-$x # delete $x->[0] # '', undef, [ ] # +strict +exists
-$x # delete $x->[0] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete
-$x # delete $x->[0] # '', undef, [ ] # +strict +store
-
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ]
-$x # delete $x->[0]->[1] # '', undef, undef #
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +fetch
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +exists
-$x # delete $x->[0]->[1] # '', undef, undef # +delete
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +store
-
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +fetch
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +exists
-$x # delete $x->[0]->[1] # qr/^Reference vivification forbidden/, undef, undef # +strict +delete
-$x # delete $x->[0]->[1] # '', undef, [ [ ] ] # +strict +store
-
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +fetch
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +fetch
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +exists
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +exists
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +delete
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +delete
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +store
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +store
-
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +fetch
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +fetch
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +exists
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +exists
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +delete
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +delete
-$x->[0] = 1 # delete $x->[0] # '', 1, [ ] # +strict +store
-$x->[0] = 1 # delete $x->[1] # '', undef, [ 1 ] # +strict +store
-
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +fetch
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +fetch
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +fetch
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +exists
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +exists
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +exists
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +delete
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +delete
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ] ]# +delete
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +store
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ]# +store
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ] # +store
-
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +fetch
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +fetch
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +exists
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +exists
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +exists
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +delete
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +delete
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +delete
-$x->[0]->[1] = 1 # delete $x->[0]->[1] # '', 1, [ [ ] ] # +strict +store
-$x->[0]->[1] = 1 # delete $x->[0]->[3] # '', undef, [ [ undef, 1 ] ] # +strict +store
-$x->[0]->[1] = 1 # delete $x->[2]->[3] # '', undef, [ [ undef, 1 ], undef, [ ] ]# +strict +store
-
---- store ---
-
-$x # $x->[0] = 1 # '', 1, [ 1 ]
-$x # $x->[0] = 1 # '', 1, [ 1 ] #
-$x # $x->[0] = 1 # '', 1, [ 1 ] # +fetch
-$x # $x->[0] = 1 # '', 1, [ 1 ] # +exists
-$x # $x->[0] = 1 # '', 1, [ 1 ] # +delete
-$x # $x->[0] = 1 # qr/^Can't vivify reference/, undef, undef # +store
-
-$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +fetch
-$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +exists
-$x # $x->[0] = 1 # '', 1, [ 1 ] # +strict +delete
-$x # $x->[0] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store
-
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ]
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] #
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +fetch
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +exists
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +delete
-$x # $x->[0]->[1] = 1 # qr/^Can't vivify reference/, undef, undef # +store
-
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +fetch
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +exists
-$x # $x->[0]->[1] = 1 # '', 1, [ [ undef, 1 ] ] # +strict +delete
-$x # $x->[0]->[1] = 1 # qr/^Reference vivification forbidden/, undef, undef # +strict +store
-
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +fetch
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +fetch
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +exists
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +exists
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +delete
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +delete
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +store
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +store
-
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +fetch
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +fetch
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +exists
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +exists
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +delete
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +delete
-$x->[0] = 1 # $x->[0] = 2 # '', 2, [ 2 ] # +strict +store
-$x->[0] = 1 # $x->[1] = 2 # '', 2, [ 1, 2 ] # +strict +store
-
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +fetch
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +fetch
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +fetch
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +exists
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +exists
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +exists
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +delete
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +delete
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +delete
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +store
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +store
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Can't vivify reference/, undef, [ [ undef, 1 ] ] # +store
-
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +fetch
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +exists
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +exists
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +exists
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +delete
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +delete
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # '', 2, [ [ undef, 1 ], undef, [ undef, undef, undef, 2 ] ] # +strict +delete
-$x->[0]->[1] = 1 # $x->[0]->[1] = 2 # '', 2, [ [ undef, 2 ] ] # +strict +store
-$x->[0]->[1] = 1 # $x->[0]->[3] = 2 # '', 2, [ [ undef, 1, undef, 2 ] ] # +strict +store
-$x->[0]->[1] = 1 # $x->[2]->[3] = 2 # qr/^Reference vivification forbidden/, undef, [ [ undef, 1 ] ] # +strict +store