Importing Variable-Magic-0.04.tar.gz

[perl/modules/Variable-Magic.git] / t / 32-hash.t

diff --git a/t/32-hash.t b/t/32-hash.t
index 74eabb81ab038980349add35fc474a56eae7e036..483d9671e93bfed7e4ac1935f0d6c85740293f14 100644 (file)
--- 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;