This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix VMS test fail
[perl5.git] / t / comp / parser_run.t
CommitLineData
d7186add
HS
1#!./perl
2
3# Parser tests that want test.pl, eg to use runperl() for tests to show
4# reads through invalid pointers.
5# Note that this should still be runnable under miniperl.
6
7BEGIN {
8 @INC = qw(. ../lib );
9 chdir 't' if -d 't';
10}
11
12require './test.pl';
13plan(1);
14
15# [perl #130814] can reallocate lineptr while looking ahead for
16# "Missing $ on loop variable" diagnostic.
bce4a2ab
HS
17my $result = fresh_perl(
18 " foreach m0\n\$" . ("0" x 0x2000),
19 { stderr => 1 },
d7186add 20);
bce4a2ab
HS
21is($result . "\n", <<EXPECT);
22syntax error at - line 3, near "foreach m0
d7186add 23"
bce4a2ab 24Identifier too long at - line 3.
d7186add
HS
25EXPECT
26
27__END__
28# ex: set ts=8 sts=4 sw=4 et: