6 use Test::More tests => 6;
8 use Variable::Magic qw/wizard cast/;
11 my $n = int rand 1000;
12 my $wiz = wizard len => sub { ++$c; return $n };
13 is($c, 0, 'len : create wizard');
18 is($c, 0, 'len : cast');
21 is($c, 1, 'len : get length');
22 is($b, $n, 'len : get length correctly');
26 is($c, 2, 'len : get length 0');
27 is($b, 0, 'len : get length 0 correctly');