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 is($c, 0, 'get : create wizard');
  13
  14 my $a = 0;
  15 cast $a, $wiz;
  16 is($c, 0, 'get : cast');
  17
  18 my $n = int rand 1000;
  19 $a = $n;
  20 is($c, 1,  'set : assign');
  21 is($a, $n, 'set : assign correctly');
  22
  23 ++$a;
  24 is($c, 2,      'set : increment');
  25 is($a, $n + 1, 'set : increment correctly');
  26
  27 --$a;
  28 is($c, 3,  'set : decrement');
  29 is($a, $n, 'set : decrement correctly');