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 cd1fc20..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
@@ -33,7 +39,7 @@ use overload;
 BEGIN { overload::constant integer => sub {}; undef *^H }
 1
 EXPECT
-Constant(undef) unknown at - line 3, at end of line
+Constant(1) unknown at - line 3, at end of line
 Execution of - aborted due to compilation errors.
 ########
 # NAME Float constant overloading returning undef
@@ -41,7 +47,7 @@ use overload;
 BEGIN { overload::constant float => sub {}; undef *^H }
 1.1
 EXPECT
-Constant(undef) unknown at - line 3, at end of line
+Constant(1.1) unknown at - line 3, at end of line
 Execution of - aborted due to compilation errors.
 ########
 # NAME Binary constant overloading returning undef
@@ -49,7 +55,7 @@ use overload;
 BEGIN { overload::constant binary => sub {}; undef *^H }
 0x1
 EXPECT
-Constant(undef) unknown at - line 3, at end of line
+Constant(0x1) unknown at - line 3, at end of line
 Execution of - aborted due to compilation errors.
 ########
 # NAME String constant overloading returning undef
@@ -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
@@ -84,7 +91,7 @@ use overload;
 BEGIN { overload::constant integer => sub {} }
 1
 EXPECT
-Constant(undef): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
+Constant(1): Call to &{$^H{integer}} did not return a defined value at - line 3, at end of line
 Execution of - aborted due to compilation errors.
 ########
 # NAME Float constant overloading returning undef
@@ -92,7 +99,7 @@ use overload;
 BEGIN { overload::constant float => sub {} }
 1.1
 EXPECT
-Constant(undef): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
+Constant(1.1): Call to &{$^H{float}} did not return a defined value at - line 3, at end of line
 Execution of - aborted due to compilation errors.
 ########
 # NAME Binary constant overloading returning undef
@@ -100,7 +107,7 @@ use overload;
 BEGIN { overload::constant binary => sub {} }
 0x1
 EXPECT
-Constant(undef): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
+Constant(0x1): Call to &{$^H{binary}} did not return a defined value at - line 3, at end of line
 Execution of - aborted due to compilation errors.
 ########
 # NAME String constant overloading returning undef