+ undef @a;
+ is($c, 3, 'copy : callback doesn\'t trigger on array undef');
+}
+
+SKIP: {
+ eval "use Tie::Hash";
+ skip 'Tie::Hash required to test copy magic on hashes', 14 if $@;
+ diag "Using Tie::Hash $Tie::Hash::VERSION" if defined $Tie::Hash::VERSION;
+
+ tie my %h, 'Tie::StdHash';
+ %h = (a => 1, b => 2, c => 3);
+
+ $c = 0;
+ my $res = cast %h, $wiz;
+ ok($res, 'copy : cast on hash succeeded');
+ is($c, 0, 'copy : cast on hash didn\'t triggered the callback');