6 use Test::More tests => 6;
8 use Variable::Magic qw/wizard cast/;
11 my $wiz = wizard get => sub { ++$c };
12 is($c, 0, 'get : create wizard');
14 my $n = int rand 1000;
18 is($c, 0, 'get : cast');
21 is($c, 1, 'get : assign to');
22 is($b, $n, 'get : assign to correctly');
25 is($c, 2, 'get : interpolate');
26 is($b, "X${n}Y", 'get : interpolate correctly');