+sub hlagh { ++$x };
+
+watch { cast &hlagh, $wiz } { }, 'cast';
+is $x, 0, 'code: cast didn\'t called code';
+
+watch { hlagh() } { }, 'call without arguments';
+is $x, 1, 'code: call without arguments succeeded';
+
+watch { hlagh(1, 2, 3) } { }, 'call with arguments';
+is $x, 2, 'code: call with arguments succeeded';