diff options
Diffstat (limited to 't/comp/parser.t')
| -rw-r--r-- | t/comp/parser.t | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index 7c0db7fa37..4f2da90f50 100644 --- 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..154\n"; +print "1..155\n"; sub failed { my ($got, $expected, $name) = @_; @@ -450,6 +450,14 @@ for my $pkg(()){} $pkg = 3; is $pkg, 3, '[perl #114942] for my $foo()){} $foo'; +eval 'Fooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' + .'oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' + .'oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' + .'oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' + .'oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo' + .'ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo'; +like $@, "^Identifier too long at ", 'ident buffer overflow'; + # Add new tests HERE (above this line) # bug #74022: Loop on characters in \p{OtherIDContinue} |