Skip to content
Browse files

Make the whole syntax_errors test TODO.

Different versions of Perl have different behaviors.

For #4
  • Loading branch information...
1 parent d3a6b8c commit 7b641bad03e2e31a3a01ec18e3e11d2ef7609eac @schwern schwern committed
Showing with 8 additions and 2 deletions.
  1. +5 −0 Changes
  2. +3 −2 t/syntax_errors.t
View
5 Changes
@@ -3,6 +3,11 @@ Next
* Added support for Perl 6 style type syntax backed by Any::Moose
(barefootcoder) [github #3]
+ Test Fixes
+ * t/syntax_errors.t would fail on some versions of Perl because
+ we wouldn't get the expected error message out of eval.
+ [github #4]
+
20110216.1153_001 Wed, 16 Feb 2011 11:35:05 +1100
New Features
View
5 t/syntax_errors.t
@@ -10,8 +10,9 @@ ok !eval { require Bad };
TODO: {
local $TODO = "The user should see the actual syntax error";
like $@, qr{^Global symbol "\$info" requires explicit package name}ms;
+
+ like($@, qr{^PPI failed to find statement for '\$bar'}ms,
+ 'Bad syntax generates stack trace');
}
-like($@, qr{^PPI failed to find statement for '\$bar'}ms,
- 'Bad syntax generates stack trace');
done_testing();

0 comments on commit 7b641ba

Please sign in to comment.
Something went wrong with that request. Please try again.