This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[perl #123893] Fix hang with "@{"
[perl5.git] / t / op / lex.t
index 3207198..dffd0b2 100644 (file)
@@ -7,7 +7,7 @@ use warnings;
 
 BEGIN { chdir 't' if -d 't'; require './test.pl'; }
 
-plan(tests => 19);
+plan(tests => 20);
 
 {
     no warnings 'deprecated';
@@ -154,15 +154,26 @@ gibberish
 
 fresh_perl_is(
   '/$a[/<<a',
-  "syntax error at - line 1, next char ;\n" .
-  "Can't find string terminator \"a\" anywhere before EOF at - line 1.\n",
+  "Missing right curly or square bracket at - line 1, within pattern\n" .
+  "syntax error at - line 1, at EOF\n" .
+  "Execution of - aborted due to compilation errors.\n",
    { stderr => 1 },
   '/$a[/<<a with no newline [perl #123712]'
 );
 fresh_perl_is(
   '/$a[m||/<<a',
-  "syntax error at - line 1, next char ;\n" .
+  "Missing right curly or square bracket at - line 1, within pattern\n" .
+  "syntax error at - line 1, at EOF\n" .
   "Execution of - aborted due to compilation errors.\n",
    { stderr => 1 },
   '/$a[m||/<<a with no newline [perl #123712]'
 );
+
+fresh_perl_is(
+  '"@{"',
+  "Missing right curly or square bracket at - line 1, within string\n" .
+  "syntax error at - line 1, at EOF\n" .
+  "Execution of - aborted due to compilation errors.\n",
+   { stderr => 1 },
+  '"@{" [perl #123712]'
+);