Add test for unicode methods
Marcus Ramberg [Fri, 2 Jan 2009 21:35:12 +0000 (21:35 +0000)]
t/fail.t

index 3e8cc4a..2908845 100644 (file)
--- a/t/fail.t
+++ b/t/fail.t
@@ -15,8 +15,9 @@ TODO: {
 };
 
 TODO: {
-    local $TODO='method does not throw proper errors for bad parens yet';
+    local $TODO='method does not disallow invalid sub names';
     eval 'method 1main() { return "foo" }','Sub starting with a number';
     like($@,qr/Illegal\sdeclaration\sof\sanonymous\ssubroutine/); 
-
+    eval 'method møø() { return "foo" }','Sub with unicode';
+    like($@,qr/Illegal\sdeclaration\sof\ssubroutine\smain\:\:m/); 
 };
\ No newline at end of file