ok $s, 'copy: tied array exists correctly';
check { undef @a } { }, 'tied array undef';
ok $s, 'copy: tied array exists correctly';
check { undef @a } { }, 'tied array undef';
is $s, 7, 'copy: tied hash delete correctly';
check { my ($k, $v) = each %h } { copy => 1 }, 'tied hash each';
is $s, 7, 'copy: tied hash delete correctly';
check { my ($k, $v) = each %h } { copy => 1 }, 'tied hash each';
is_deeply [ sort { $a <=> $b } @v ], [ 1, 3 ], 'copy: tied hash values correctly';
check { undef %h } { }, 'tied hash undef';
is_deeply [ sort { $a <=> $b } @v ], [ 1, 3 ], 'copy: tied hash values correctly';
check { undef %h } { }, 'tied hash undef';