diff options
| author | Andy Dougherty <doughera@lafayette.edu> | 2001-01-09 07:11:16 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-01-09 18:27:43 +0000 |
| commit | 24cc8ef6d2c387830d9f88fe302fe306816d5017 (patch) | |
| tree | 11ab439709713d7ddec123bbc5b1d6c3a4769552 /t/comp | |
| parent | ed6b3797850720f78128f390c7ef98bfdebafac0 (diff) | |
| download | perl-24cc8ef6d2c387830d9f88fe302fe306816d5017.tar.gz | |
Re: [PATCH: perl@8342] comp/proto..........FAILED tests 112-123
Message-ID: <Pine.SOL.4.10.10101091144440.13124-100000@maxwell.phys.lafayette.edu>
More robust yacc/bison error detection.
p4raw-id: //depot/perl@8381
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/proto.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 874ab44058..22428570a7 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -491,12 +491,14 @@ sub sreftest (\$$) { } # test prototypes when they are evaled and there is a syntax error +# Byacc generates the string "syntax error". Bison gives the +# string "parse error". # for my $p ( "", qw{ () ($) ($@) ($%) ($;$) (&) (&\@) (&@) (%) (\%) (\@) } ) { no warnings 'redefine'; my $eval = "sub evaled_subroutine $p { &void *; }"; eval $eval; - print "# eval[$eval]\nnot " unless $@ && $@ =~ /syntax error/; + print "# eval[$eval]\nnot " unless $@ && $@ =~ /(parse|syntax) error/i; print "ok ", $i++, "\n"; } |