From: Vincent Pit <vince@profvince.com>
Date: Mon, 2 Mar 2009 16:31:03 +0000 (+0100)
Subject: Test L:{last L} in t/18-opinfo.t
X-Git-Tag: v0.33~17
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=9e5f73e086da2d2ebab9a8fee2bcb3e64d2cab3d;p=perl%2Fmodules%2FVariable-Magic.git

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

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;