+ watch { undef @a } { }, 'tied array undef';
+
+ {
+ tie my @val, 'Tie::StdArray';
+ @val = (4 .. 6);
+
+ my $wv = init_value @val, 'copy', 'copy';
+
+ value { $val[3] = 8 } [ 4 .. 6 ];
+
+ dispell @val, $wv;
+ is_deeply \@val, [ 4 .. 6, 8 ], 'copy: value after';
+ }