X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F32-hash.t;h=483d9671e93bfed7e4ac1935f0d6c85740293f14;hb=refs%2Ftags%2Fv0.04;hp=74eabb81ab038980349add35fc474a56eae7e036;hpb=77a84f75f33e3ee44e61182dec76699e23025375;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/32-hash.t b/t/32-hash.t index 74eabb8..483d967 100644 --- a/t/32-hash.t +++ b/t/32-hash.t @@ -1,5 +1,8 @@ #!perl -T +use strict; +use warnings; + use Test::More tests => 17; use Variable::Magic qw/wizard cast dispell/; @@ -64,9 +67,9 @@ ok(check(), 'hash : each'); { my %b = %n; -# cast %b, $wiz; + cast %b, $wiz; } -#++$x[4]; +++$x[4]; ok(check(), 'hash : scope end'); undef %a;