t/21-set.t

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