-++$a;
-ok($c == 2, 'set : increment');
-ok($a == $n + 1, 'set : increment correctly');
+check { $a = $n } { set => 1 }, 'assign';
+is $a, $n, 'set: assign correctly';
+
+check { ++$a } { set => 1 }, 'increment';
+is $a, $n + 1, 'set: increment correctly';