X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F10-simple.t;h=adfea124616eeebaa062560a617af581b76df62a;hb=fd2b4b28517f7f12044530f6c3ceca07181fba70;hp=7921facab3a3af8047fc70761ab9298c84d96765;hpb=b43ca6c10beabb678914eb7845fed4abda6cd852;p=perl%2Fmodules%2FVariable-Magic.git diff --git a/t/10-simple.t b/t/10-simple.t index 7921fac..adfea12 100644 --- a/t/10-simple.t +++ b/t/10-simple.t @@ -7,11 +7,11 @@ use Test::More tests => 46; use Variable::Magic qw/wizard gensig getsig cast dispell MGf_COPY MGf_DUP MGf_LOCAL VMG_UVAR/; -my $args = 7; +my $args = 8; ++$args if MGf_COPY; ++$args if MGf_DUP; ++$args if MGf_LOCAL; -$args += 4 if VMG_UVAR; +$args += 5 if VMG_UVAR; for (0 .. 20) { next if $_ == $args; eval { Variable::Magic::_wizard(('hlagh') x $_) };