t/20-hash.t

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