From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 27 Jun 2007 05:36:24 +0000 (+0000)
Subject: extra test
X-Git-Tag: 0.001000~2
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f0655a28f057c79f102058be807bc87d603d0991;p=p5sagit%2FDevel-BeginLift.git

extra test
---

diff --git a/t/liftvar.t b/t/liftvar.t
index 0301368..28c5d7e 100644
--- a/t/liftvar.t
+++ b/t/liftvar.t
@@ -4,10 +4,18 @@ use Test::More 'no_plan';
 
 sub foo { $_[0] = $_[1]; (); }
 
-sub bar { is($_[0], 'yay', 'Var set ok'); (); }
+sub bar { is($_[0], 'yay', 'Var set ok by sub'); (); }
 
-use Devel::BeginLift qw(foo bar);
+sub baz { () }
+
+sub quux { is($_[0], 'w00t', 'Var set ok by ='); (); }
+
+use Devel::BeginLift qw(foo bar baz quux);
 
 foo(my $meep, 'yay');
 
 bar($meep);
+
+baz(my $lolz = 'w00t');
+
+quux($lolz);