6 use Test::More tests => 8;
8 use Variable::Magic qw/wizard cast/;
11 my $wiz = wizard set => sub { ++$c };
12 ok($c == 0, 'get : create wizard');
16 ok($c == 0, 'get : cast');
18 my $n = int rand 1000;
20 ok($c == 1, 'set : assign');
21 ok($a == $n, 'set : assign correctly');
24 ok($c == 2, 'set : increment');
25 ok($a == $n + 1, 'set : increment correctly');
28 ok($c == 3, 'set : decrement');
29 ok($a == $n, 'set : decrement correctly');