X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F11-multiple.t;h=7c92b78298f62831e47039bebb2904494011729d;hb=HEAD;hp=58cc8a86c18eccc36ce348aa94747be006bca848;hpb=26f70394b095bcb257f15ee338bfe370be4e6a3e;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/11-multiple.t b/t/11-multiple.t index 58cc8a8..7c92b78 100644 --- a/t/11-multiple.t +++ b/t/11-multiple.t @@ -5,7 +5,7 @@ use warnings; use Test::More tests => 33 + 41; -use Variable::Magic qw/wizard cast dispell VMG_UVAR/; +use Variable::Magic qw; my $n = 3; my @w; @@ -125,7 +125,7 @@ SKIP: { $s = $h{b}; is($s, 2, 'fetch magic after dispelled 1 doesn\'t clobber'); for (0, 2) { is($c[$_], 2, "fetch magic $_ after dispelled 1"); } - + $h{b} = 4; for (0, 2) { is($c[$_], 1, "store magic $_ after dispelled 1"); } is($h{b}, 4, 'store magic after dispelled 1 doesn\'t clobber');