6 use Test::More tests => 7;
8 use Variable::Magic qw/wizard cast/;
10 my $wiz = eval { wizard get => sub { undef } };
11 ok(!$@, "wizard creation error ($@)");
12 ok(defined $wiz, 'wizard is defined');
13 ok(ref $wiz eq 'SCALAR', 'wizard is a scalar ref');
15 my $n = int rand 1000;
18 my $res = eval { cast $a, $wiz };
19 ok(!$@, "cast croaks ($@)");
20 ok($res, 'cast invalid');
24 local $SIG{__WARN__} = sub { die };
27 ok(!$@, 'callback returning undef croaks');
28 ok(defined($x) && ($x == $n), 'callback returning undef fails');