t/21-set.t

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