t/22-len.t

   1 #!perl -T
   2
   3 use Test::More tests => 6;
   4
   5 use Variable::Magic qw/wizard cast/;
   6
   7 my $c = 0;
   8 my $n = int rand 1000;
   9 my $wiz = wizard len => sub { ++$c; return $n };
  10 ok($c == 0, 'len : create wizard');
  11
  12 my @a = qw/a b c/;
  13
  14 cast @a, $wiz;
  15 ok($c == 0, 'len : cast');
  16
  17 my $b = scalar @a;
  18 ok($c == 1, 'len : get length');
  19 ok($b == $n, 'len : get length correctly');
  20
  21 $n = 0;
  22 $b = scalar @a;
  23 ok($c == 2, 'len : get length 0');
  24 ok($b == 0, 'len : get length 0 correctly');