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