Test L:{last L} in t/18-opinfo.t

diff --git a/t/18-opinfo.t b/t/18-opinfo.t
index 843e60efee9ea4902bd01638530739575a1789e0..c03c3de6b33b88af50906c8ca40e526376d881a4 100644 (file)
--- 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;