diff options
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index a89294968f..27f81dc61a 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..148\n"; +print "1..152\n"; sub failed { my ($got, $expected, $name) = @_; @@ -533,6 +533,10 @@ EOU s//<<EOV/e if 0; EOV check('parser\.t', 535, 'after here-doc in quotes'); +<<EOW; +${check('parser\.t', 537, 'first line of interp in here-doc');; + check('parser\.t', 538, 'second line of interp in here-doc');} +EOW __END__ # Don't add new tests HERE. See note above |