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