6 use Test::More tests => 13;
8 use Variable::Magic qw/wizard cast VMG_COMPAT_SCALAR_LENGTH_NOLEN/;
11 my $n = 1 + 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');
34 skip 'length() no longer calls mg_len magic' => 5 if VMG_COMPAT_SCALAR_LENGTH_NOLEN;
37 $n = 1 + int rand 1000;
38 # length magic on scalars needs also get magic to be triggered.
39 $wiz = wizard get => sub { return 56478 },
40 len => sub { ++$c; return $n };
42 my $x = int rand 1000;
45 is($c, 0, 'len : cast on scalar');
48 is($c, 1, 'len : get scalar length');
49 is($b, $n, 'len : get scalar length correctly');
53 is($c, 2, 'len : get scalar length 0');
54 is($b, $n, 'len : get scalar length 0 correctly');