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
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
7 BEGIN {
8     @INC = qw(. ../lib );
9     chdir 't' if -d 't';
10 }
11
12 require './test.pl';
13 plan(1);
14
15 # [perl #130814] can reallocate lineptr while looking ahead for
16 # "Missing $ on loop variable" diagnostic.
17 my $result = fresh_perl(
18     " foreach m0\n\$" . ("0" x 0x2000),
19     { stderr => 1 },
20 );
21 is($result . "\n", <<EXPECT);
22 syntax error at - line 3, near "foreach m0
23 "
24 Identifier too long at - line 3.
25 EXPECT
26
27 __END__
28 # ex: set ts=8 sts=4 sw=4 et: