X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F18-opinfo.t;h=c03c3de6b33b88af50906c8ca40e526376d881a4;hb=9e5f73e086da2d2ebab9a8fee2bcb3e64d2cab3d;hp=843e60efee9ea4902bd01638530739575a1789e0;hpb=077519905e1c99ca8cf60cca6825fddce7696dff;p=perl%2Fmodules%2FVariable-Magic.git

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 843e60e..c03c3de 100644
--- a/t/18-opinfo.t
+++ b/t/18-opinfo.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 13 * (3 + 4) + 5;
+use Test::More tests => 14 * (3 + 4) + 5;
 
 use Config qw/%Config/;
 
@@ -33,6 +33,7 @@ my @tests = (
  [ 'get', '$c',    'my $c = 1', '1 for 1 .. $c',
                                                  [ 'enteriter', 'B::LOOP'   ] ],
  [ 'free','$c',    'my $c = 1', 'last',            [ 'last',    'B::OP'     ] ],
+ [ 'free','$c', 'L:{my $c = 1', 'last L}',         [ 'last',    'B::OP'     ] ],
 );
 
 our $done;