3 use Test::More tests => 8;
5 use Variable::Magic qw/wizard cast/;
8 my $wiz = wizard set => sub { ++$c };
9 ok($c == 0, 'get : create wizard');
13 ok($c == 0, 'get : cast');
15 my $n = int rand 1000;
17 ok($c == 1, 'set : assign');
18 ok($a == $n, 'set : assign correctly');
21 ok($c == 2, 'set : increment');
22 ok($a == $n + 1, 'set : increment correctly');
25 ok($c == 3, 'set : decrement');
26 ok($a == $n, 'set : decrement correctly');