diff options
Diffstat (limited to 't/comp')
| -rw-r--r-- | t/comp/parser.t | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/t/comp/parser.t b/t/comp/parser.t index d05e92e5c7..a89294968f 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..144\n"; +print "1..148\n"; sub failed { my ($got, $expected, $name) = @_; @@ -527,5 +527,12 @@ eval <<'EOSTANZA'; die $@ if $@; check(qr/^Great hail!.*no more\.$/, 61, "Overflow both small buffer checks"); EOSTANZA +#line 531 parser.t +<<EOU; check('parser\.t', 531, 'on same line as heredoc'); +EOU +s//<<EOV/e if 0; +EOV +check('parser\.t', 535, 'after here-doc in quotes'); + __END__ # Don't add new tests HERE. See note above |