This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix t/comp/parser_run.t for EBCDIC
[perl5.git] / t / comp / parser_run.t
index eba4b9f..79b669d 100644 (file)
@@ -10,7 +10,7 @@ BEGIN {
     set_up_inc( qw(. ../lib ) );
 }
 
-plan(4);
+plan(5);
 
 # [perl #130814] can reallocate lineptr while looking ahead for
 # "Missing $ on loop variable" diagnostic.
@@ -25,10 +25,10 @@ Identifier too long at - line 3.
 EXPECT
 
 fresh_perl_is(<<EOS, <<'EXPECT', {}, "linestart before bufptr");
-\${ \xD5eeeeeeeeeeee
+\${ \xB6eeeeeeeeeeee
 'x
 EOS
-Unrecognized character \xD5; marked by <-- HERE after ${ <-- HERE near column 4 at - line 1.
+Unrecognized character \xB6; marked by <-- HERE after ${ <-- HERE near column 4 at - line 1.
 EXPECT
 
 fresh_perl_is(<<'EOS', <<'EXPECTED', {}, "use after free (#131836)");
@@ -49,5 +49,11 @@ SKIP:
     is($out, "", "check for ASAN use after free");
 }
 
+fresh_perl_is('-C-', <<'EXPECTED', {}, "ambiguous unary operator check doesn't crash (#132433)");
+Warning: Use of "-C-" without parentheses is ambiguous at - line 1.
+syntax error at - line 1, at EOF
+Execution of - aborted due to compilation errors.
+EXPECTED
+
 __END__
 # ex: set ts=8 sts=4 sw=4 et: