X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F32-hash.t;h=572f5e668e42fe18033cd0765ba7e4ef652bc152;hb=9e65e9bfbd5fa2ee747e865d1471b26ec229383c;hp=7f1669a734941076b70eb60df223d15e820af06d;hpb=fee1a480bc5d827590dc7394e0a77741bad86dc3;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/32-hash.t b/t/32-hash.t
index 7f1669a..572f5e6 100644
--- a/t/32-hash.t
+++ b/t/32-hash.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 18;
 
-use Variable::Magic qw/wizard cast dispell MGf_COPY VMG_UVAR VMG_COMPAT_HASH_LISTASSIGN_COPY/;
+use Variable::Magic qw/wizard cast dispell MGf_COPY VMG_UVAR/;
 
 my @c = (0) x 12;
 my @x = (0) x 12;
@@ -56,13 +56,13 @@ ok(check(), 'hash : slice');
 
 %a = (a => 1, d => 3);
 ++$x[3];
-$x[5] += 2 if VMG_COMPAT_HASH_LISTASSIGN_COPY;
+$x[5] += 2 if VMG_UVAR;
 $x[9] += 2 if VMG_UVAR;
 ok(check(), 'hash : assign from list');
 
 %a = map { $_ => 1 } qw/a b d/;
 ++$x[3];
-$x[5] += 3 if VMG_COMPAT_HASH_LISTASSIGN_COPY;
+$x[5] += 3 if VMG_UVAR;
 $x[9] += 3 if VMG_UVAR;
 ok(check(), 'hash : assign from map');