t/23-clear.t

   1 #!perl -T
   2
   3 use Test::More tests => 7;
   4
   5 use Variable::Magic qw/wizard cast/;
   6
   7 my $c = 0;
   8 my $wiz = wizard clear => sub { ++$c };
   9 ok($c == 0, 'clear : create wizard');
  10
  11 my @a = qw/a b c/;
  12
  13 cast @a, $wiz;
  14 ok($c == 0, 'clear : cast array');
  15
  16 @a = ();
  17 ok($c == 1, 'clear : clear array');
  18 ok(!defined $a[0], 'clear : clear array correctly');
  19
  20 my %h = (foo => 1, bar => 2);
  21
  22 cast %h, $wiz;
  23 ok($c == 1, 'clear : cast hash');
  24
  25 %h = ();
  26 ok($c == 2, 'clear : clear hash');
  27 ok(!(keys %h), 'clear : clear hash correctly');