Test loop ops

[perl/modules/Variable-Magic.git] / t / 18-opinfo.t

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index c10ccb063cf0e1cdd300f3348d263ac7858fffc4..3f623175b6657b3f2e1e6f10186b287382db401b 100644 (file)
--- 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) {