t/23-clear.t

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