- my $res = cast @a, $wiz;
- ok($res, 'copy : cast on array succeeded');
- is($c, 0, 'copy : cast on array didn\'t triggered the callback');
+ my $res = watch { cast @a, $wiz } { }, 'cast on tied array';
+ ok $res, 'copy: cast on tied array succeeded';
+
+ watch { $a[3] = 13 } { copy => 1 }, 'tied array store';
+
+ my $s = watch { $a[3] } { copy => 1 }, 'tied array fetch';
+ is $s, 13, 'copy: tied array fetch correctly';
+
+ $s = watch { exists $a[3] } { copy => 1 }, 'tied array exists';
+ ok $s, 'copy: tied array exists correctly';
+
+ watch { undef @a } { }, 'tied array undef';