6 use Test::More tests => 11;
8 use Variable::Magic qw/wizard cast VMG_COMPAT_SCALAR_LENGTH_NOLEN/;
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 on array');
21 is($c, 1, 'len : get array length');
22 is($b, $n, 'len : get array length correctly');
25 is($c, 2, 'len : get last array index');
26 is($b, $n - 1, 'len : get last array index correctly');
30 is($c, 3, 'len : get array length 0');
31 is($b, 0, 'len : get array length 0 correctly');
35 # length magic on scalars needs also get magic to be triggered.
36 $wiz = wizard get => sub { return 56478 },
37 len => sub { ++$c; return $n };
39 my $x = int rand 1000;
42 skip 'length() no longer calls mg_len magic', 3 if VMG_COMPAT_SCALAR_LENGTH_NOLEN;
45 is($c, 0, 'len : cast on scalar');
48 is($c, 1, 'len : get scalar length');
49 is($b, $n - 1, 'len : get scalar length correctly');