This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix expected failure text for new croak.t test
[perl5.git] / t / lib / croak / toke
index 329e12c..d6026d2 100644 (file)
@@ -9,6 +9,12 @@ eval "s//<<foo/e"; die $@
 EXPECT
 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
 ########
+# NAME /\N{/
+/\N{/
+EXPECT
+Missing right brace on \N{} or unescaped left brace after \N at - line 1, within pattern
+Execution of - aborted due to compilation errors.
+########
 # NAME Missing name in "my sub"
 use feature 'lexical_subs'; my sub;
 EXPECT
@@ -73,6 +79,7 @@ Constant(q) unknown at - line 3, within pattern
 Execution of - aborted due to compilation errors.
 ########
 # NAME \N{...} when charnames fails to load but without an error
+# SKIP ? exists $ENV{PERL_UNICODE} ? "Unreliable under some PERL_UNICODE settings" : 0
 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
 "\N{a}"
 EXPECT