- my $res = cast @a, $wiz;
- ok($res, 'copy : cast on array succeeded');
- ok($c == 0, 'copy : cast on array didn\'t triggered the callback');
+ my $res = check { cast @a, $wiz } { }, 'cast on tied array';
+ ok $res, 'copy: cast on tied array succeeded';