3 use Test::More tests => 6;
5 use Variable::Magic qw/wizard cast/;
8 my $wiz = wizard get => sub { ++$c };
9 ok($c == 0, 'get : create wizard');
11 my $n = int rand 1000;
15 ok($c == 0, 'get : cast');
18 ok($c == 1, 'get : assign to');
19 ok($b == $n, 'get : assign to correctly');
22 ok($c == 2, 'get : interpolate');
23 ok($b eq "X${n}Y", 'get : interpolate correctly');