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

[marcus at dev.catalyst.perl.org]

Author: marcus
Date: 2009-01-02 21:11:01 +0000 (Fri, 02 Jan 2009)
New Revision: 5283

Added:
   Devel-Declare/1.000/trunk/t/fail.t
Log:
First buckit of FAIL

Added: Devel-Declare/1.000/trunk/t/fail.t
===================================================================
--- Devel-Declare/1.000/trunk/t/fail.t	                        (rev 0)
+++ Devel-Declare/1.000/trunk/t/fail.t	2009-01-02 21:11:01 UTC (rev 5283)
@@ -0,0 +1,15 @@
+use Devel::Declare;
+
+use Devel::Declare::MethodInstaller::Simple;
+BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') };
+
+use Test::More 'no_plan';
+
+TODO: {
+    local $TODO='Method does not throw proper errors for bad parens yet';
+    eval 'method main ( { return "foo" }';
+    like($@,qr/Prototype\snot\sterminated/); 
+
+    eval 'method main ) { return "foo" }';
+    like($@,qr/Illegal\sdeclaration\sof\ssubroutine/); 
+};
\ No newline at end of file