[Bast-commits] r6195 - Devel-Declare/1.000/trunk/t

[rafl at dev.catalyst.perl.org]

Author: rafl
Date: 2009-05-10 00:01:43 +0000 (Sun, 10 May 2009)
New Revision: 6195

Modified:
   Devel-Declare/1.000/trunk/t/method-installer-runtime.t
Log:
Add testcase for calling a method with the name of a declarator.

Modified: Devel-Declare/1.000/trunk/t/method-installer-runtime.t
===================================================================
--- Devel-Declare/1.000/trunk/t/method-installer-runtime.t	2009-05-09 13:46:55 UTC (rev 6194)
+++ Devel-Declare/1.000/trunk/t/method-installer-runtime.t	2009-05-10 00:01:43 UTC (rev 6195)
@@ -12,7 +12,9 @@
 
 ok(!main->can('foo'), 'foo() not installed yet');
 
-method foo { }
+method foo {
+    $_[0]->method
+}
 
 ok(main->can('foo'), 'foo() installed at runtime');