update foreign tests

[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / errors.t

diff --git a/t/foreign/MooseX-Method-Signatures/errors.t b/t/foreign/MooseX-Method-Signatures/errors.t
index 6d1493e..0a621d5 100644 (file)
--- a/t/foreign/MooseX-Method-Signatures/errors.t
+++ b/t/foreign/MooseX-Method-Signatures/errors.t
@@ -1,17 +1,26 @@
 #!perl
 use strict;
 use warnings FATAL => 'all';
-use Test::More tests => 4;
+use Test::More;
 
 use Dir::Self;
 use lib __DIR__ . "/lib";
 
 eval "use InvalidCase01;";
 ok($@, "Got an error");
+
+#TODO: {
+#
+#local $TODO = 'Devel::Declare and Eval::Closure have unresolved issues'
+#    if Eval::Closure->VERSION > 0.06;
+
 like($@,
      qr/^Global symbol "\$op" requires explicit package name at .*?\bInvalidCase01.pm line 8\b/,
      "Sane error message for syntax error");
 
+#}
+
+
 {
   my $warnings = "";
   local $SIG{__WARN__} = sub { $warnings .= $_[0] };
@@ -21,3 +30,5 @@ like($@,
   like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/,
        "Redefined method warning");
 }
+
+done_testing;