t/20-get.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 $wiz = wizard get => sub { ++$c };
   9 ok($c == 0, 'get : create wizard');
  10
  11 my $n = int rand 1000;
  12 my $a = $n;
  13
  14 cast $a, $wiz;
  15 ok($c == 0, 'get : cast');
  16
  17 my $b = $a;
  18 ok($c == 1, 'get : assign to');
  19 ok($b == $n, 'get : assign to correctly');
  20
  21 $b = "X${a}Y";
  22 ok($c == 2, 'get : interpolate');
  23 ok($b eq "X${n}Y", 'get : interpolate correctly');