import more Method::Signatures tests

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

diff --git a/t/foreign/Method-Signatures/syntax_errors.t b/t/foreign/Method-Signatures/syntax_errors.t
new file mode 100644 (file)
index 0000000..d014554
--- /dev/null
+++ b/t/foreign/Method-Signatures/syntax_errors.t
@@ -0,0 +1,19 @@
+#!perl
+use strict;
+use warnings FATAL => 'all';
+
+use Test::More;
+
+use Dir::Self;
+use lib __DIR__ . '/lib';
+
+ok !eval { require Bad };
+#TODO: {
+#    local $TODO = "The user should see the actual syntax error";
+    like $@, qr{^Global symbol "\$info" requires explicit package name}m;
+
+#    like($@, qr{^PPI failed to find statement for '\$bar'}m,
+#         'Bad syntax generates stack trace');
+#}
+
+done_testing();