X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F18-opinfo.t;fp=t%2F18-opinfo.t;h=3f623175b6657b3f2e1e6f10186b287382db401b;hb=b89179504228d9bda5db55dc5b84111a5286ff4c;hp=c10ccb063cf0e1cdd300f3348d263ac7858fffc4;hpb=785666007a6d0c007dad6f97702d42c952519901;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index c10ccb0..3f62317 100644
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 11 * (5 + 6) + 4 + 5;
+use Test::More tests => 12 * (5 + 6) + 4 + 5;
 
 use Config qw/%Config/;
 
@@ -29,6 +29,7 @@ my @tests = (
  [ 'get', '$c',    '$c = "Variable::Magic::TestPkg"',
                               '$c->foo()',    [ 'method_named', 'B::SVOP'   ] ],
  [ 'get', '$c',    '$c = ""', '$c =~ y/x/y/',      [ 'trans',   'B::PVOP'   ] ],
+ [ 'get', '$c',    '$c = 1',  '1 for 1 .. $c',   [ 'enteriter', 'B::LOOP'   ] ],
 );
 
 for (@tests) {