-++$a;
-ok($c == 2, 'set : increment');
-ok($a == $n + 1, 'set : increment correctly');
+watch { $a = $n } { set => 1 }, 'assign';
+is $a, $n, 'set: assign correctly';
+
+watch { ++$a } { set => 1 }, 'increment';
+is $a, $n + 1, 'set: increment correctly';
+
+watch { --$a } { set => 1 }, 'decrement';
+is $a, $n, 'set: decrement correctly';
+
+{
+ my $val = 0;
+
+ init_value $val, 'set', 'set';