[perl #74022] Parser hangs on some Unicode characters

[perl5.git] / t / comp / parser.t

diff --git a/t/comp/parser.t b/t/comp/parser.t
index 5c64d11..16b4a82 100644 (file)
--- a/t/comp/parser.t
+++ b/t/comp/parser.t
@@ -3,7 +3,7 @@
 # Checks if the parser behaves correctly in edge cases
 # (including weird syntax errors)
 
-print "1..122\n";
+print "1..123\n";
 
 sub failed {
     my ($got, $expected, $name) = @_;
@@ -355,6 +355,11 @@ is($@, "", "multiline whitespace inside substitute expression");
 
 # Add new tests HERE:
 
+# bug #74022: Loop on characters in \p{OtherIDContinue}
+# This test hangs if it fails.
+eval chr 0x387;
+is(1,1, '[perl #74022] Parser looping on OtherIDContinue chars');
+
 # More awkward tests for #line. Keep these at the end, as they will screw
 # with sane line reporting for any other test failures