[Bast-commits] r3543 - trunk/Devel-BeginLift/t

[matthewt at dev.catalyst.perl.org]

Author: matthewt
Date: 2007-06-27 06:36:24 +0100 (Wed, 27 Jun 2007)
New Revision: 3543

Modified:
   trunk/Devel-BeginLift/t/liftvar.t
Log:
extra test

Modified: trunk/Devel-BeginLift/t/liftvar.t
===================================================================
--- trunk/Devel-BeginLift/t/liftvar.t	2007-06-27 05:23:11 UTC (rev 3542)
+++ trunk/Devel-BeginLift/t/liftvar.t	2007-06-27 05:36:24 UTC (rev 3543)
@@ -4,10 +4,18 @@
 
 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);