From: Vincent Pit <vince@profvince.com>
Date: Mon, 2 Mar 2009 14:31:29 +0000 (+0100)
Subject: Test loop ops
X-Git-Tag: v0.33~19
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=b89179504228d9bda5db55dc5b84111a5286ff4c;p=perl%2Fmodules%2FVariable-Magic.git

Test loop ops
---

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) {