import some (modified) MXMS 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
new file mode 100644 (file)
index 0000000..6d1493e
--- /dev/null
+++ b/t/foreign/MooseX-Method-Signatures/errors.t
@@ -0,0 +1,23 @@
+#!perl
+use strict;
+use warnings FATAL => 'all';
+use Test::More tests => 4;
+
+use Dir::Self;
+use lib __DIR__ . "/lib";
+
+eval "use InvalidCase01;";
+ok($@, "Got an error");
+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] };
+
+  eval "use Redefined;";
+  is($@, '', "No error");
+  like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/,
+       "Redefined method warning");
+}