-{
- local $a;
- ok($c == 1, 'local : localize casted variable');
-}
-
-dispell $a, $wiz;
-ok($c == 1, 'local : dispell');
-
-{
- local $a;
- ok($c == 1, 'local : localize dispelled variable');
-}
+my $res = watch { cast $a, $wiz } { }, 'cast';
+ok $res, 'local: cast succeeded';