X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-simple.t;h=1692b44a8616f35ae9064a6670207588ad4145b8;hb=30631ed72aef81f7a424009effb91f408481463e;hp=70b4f6ef778f77556ff9dfdf470879159a0dcaed;hpb=22e4bfdeebdba03a6d923239bb75b37655a29cdb;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/10-simple.t b/t/10-simple.t
index 70b4f6e..1692b44 100644
--- a/t/10-simple.t
+++ b/t/10-simple.t
@@ -5,13 +5,11 @@ use warnings;
 
 use Test::More tests => 43;
 
-use Variable::Magic qw<wizard cast dispell MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR>;
+use Variable::Magic qw<wizard cast dispell MGf_LOCAL VMG_UVAR>;
 
 my $inv_wiz_obj = qr/Invalid\s+wizard\s+object\s+at\s+\Q$0\E/;
 
-my $args = 7;
-++$args if MGf_COPY;
-++$args if MGf_DUP;
+my $args = 9;
 ++$args if MGf_LOCAL;
 $args += 5 if VMG_UVAR;
 for (0 .. 20) {