add $_ aliasing

[p5sagit/Object-Tap.git] / t / 01basic.t

diff --git a/t/01basic.t b/t/01basic.t
index 58d2279..f1b138f 100644 (file)
--- a/t/01basic.t
+++ b/t/01basic.t
@@ -14,3 +14,5 @@ is($tapped, 'Foo one', 'subref tap');
 is(Foo->$_tap(bar => 'two'), 'Foo', 'invocant returned');
 
 is($tapped, 'Foo two', 'method name tap');
+
+Foo->$_tap(sub { is($_[0], $_, '$_ aliased to object') });