fix expected failure text for new croak.t test

[perl5.git] / t / lib / croak / toke

diff --git a/t/lib/croak/toke b/t/lib/croak/toke
index 329e12c..d6026d2 100644 (file)
--- a/t/lib/croak/toke
+++ b/t/lib/croak/toke
@@ -9,6 +9,12 @@ eval "s//<<foo/e"; die $@
 EXPECT
 Can't find string terminator "foo" anywhere before EOF at (eval 1) line 1.
 ########
 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
 # 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
 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
 BEGIN { ++$_ for @INC{"charnames.pm","_charnames.pm"} }
 "\N{a}"
 EXPECT