extra test

diff --git a/t/liftvar.t b/t/liftvar.t
index 0301368..28c5d7e 100644 (file)
--- 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);