X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Ffail.t;h=0e98d55c615f8fb00d471c974c487b72bae20569;hb=e8e28944ba0dbcaf478071464085b15c5104e104;hp=2908845b730a498929534d45432bd7f2d84d675c;hpb=6cd03fcae0b0a2929031851db7292dda8e7e6b0a;p=p5sagit%2FDevel-Declare.git

diff --git a/t/fail.t b/t/fail.t
index 2908845..0e98d55 100644
--- a/t/fail.t
+++ b/t/fail.t
@@ -1,23 +1,33 @@
-use Devel::Declare;
+use strict;
+use warnings;
+use Test::More 0.88;
 
 use Devel::Declare::MethodInstaller::Simple;
-BEGIN { Devel::Declare::MethodInstaller::Simple->install_methodhandler(name => 'method', into => 'main') };
-
-use Test::More 'no_plan';
+BEGIN {
+    Devel::Declare::MethodInstaller::Simple->install_methodhandler(
+        name => 'method',
+        into => __PACKAGE__,
+    );
+}
 
 TODO: {
-    local $TODO='Method does not throw proper errors for bad parens yet';
+    local $TODO = 'Method does not throw proper errors for bad parens yet';
+
     eval 'method main ( { return "foo" }';
-    like($@,qr/Prototype\snot\sterminated/,'Missing end parens'); 
+    like($@, qr/Prototype\snot\sterminated/, 'Missing end parens');
 
     eval 'method main ) { return "foo" }';
-    like($@,qr/Illegal\sdeclaration\sof\ssubroutine/,'Missing start parens');
+    like($@, qr/Illegal\sdeclaration\sof\ssubroutine/, 'Missing start parens');
 };
 
 TODO: {
-    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
+    local $TODO = 'method does not disallow invalid sub names';
+
+    eval 'method 1main() { return "foo" }';
+    like($@, qr/Illegal\sdeclaration\sof\sanonymous\ssubroutine/, 'starting with a number');
+
+    eval 'method møø() { return "foo" }';
+    like($@, qr/Illegal\sdeclaration\sof\ssubroutine\smain\:\:m/, 'with unicode');
+};
+
+done_testing;