update changelog

[p5sagit/Devel-BeginLift.git] / t / generate.t

diff --git a/t/generate.t b/t/generate.t
index d732e4f..1c1a64e 100644 (file)
--- a/t/generate.t
+++ b/t/generate.t
@@ -4,16 +4,40 @@ use Test::More;
 
 BEGIN {
     plan skip_all => "B::Generate required" unless eval { require B::Generate };
-    plan 'no_plan';
+    plan skip_all => "B::Utils required" unless eval { require B::Utils };
+    plan tests => 2;
 }
 
-sub foo { 
+sub foo {
     B::SVOP->new("const", 0, 42);
 }
 
-use Devel::BeginLift qw(foo);
+sub gorch ($) {
+    my $meth = ( $_[0]->kids )[-1]->sv->object_2svref;
+    $$meth = "other";
+    $_[0];
+}
 
-sub bar { 7 + foo() }
+use Devel::BeginLift qw(foo gorch);
 
+sub bar { 7 + foo() }
 is( bar(), 49, "optree injected" );
 
+sub blah { foo(31) }
+is(blah(), 42, "optree injected" );;
+
+sub meth { 3 }
+
+sub other { 42 }
+
+__END__
+
+my $obj = bless {};
+sub oink { gorch $obj->meth; }
+
+is( oink(), 42, "modify method call");
+
+my @args = ( 1 .. 3 );
+sub ploink { gorch $obj->meth(1, @args); }
+is( ploink(), 42, "modify method call with args");
+