From: Vincent Pit 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) {