| Subject: | Parsing error reports non-existing line |
| Date: | Wed, 21 Jun 2017 18:42:06 -0700 |
| To: | bug-PPR [...] rt.cpan.org |
| From: | Chad Granum <exodist7 [...] gmail.com> |
From my slides:
use strict;
Show quoted text
> use warnings;
> use Test::Expr;
> ok(
> !(grep {
> !!$_
> # Let us just throw in a really big ass comment here, what will
> happen to this garbage?
> # jgfhsdfjghsdjfghfsdjhgjdfhgjdhgjsdhfjshfjhsdjfhgjsdhgjhjfhgj
> sdhgjsdhgjdhgjdshgjdhsjgf
> # jgfhsdfjghsdjfghfsdjhgjdfhgjdhgjsdhfjshfjhsdjfhgjsdhgjhjfhgj
> sdhgjsdhgjdhgjdshgjdhsjgf
> # jgfhsdfjghsdjfghfsdjhgjdfhgjdhgjsdhfjshfjhsdjfhgjsdhgjhjfhgj
> sdhgjsdhgjdhgjdshgjdhsjgf
> # jgfhsdfjghsdjfghfsdjhgjdfhgjdhgjsdhfjshfjhsdjfhgjsdhgjhjfhgj
> sdhgjsdhgjdhgjdshgjdhsjgf
> } qw/a b c/),
> );
> done_testing;
Output:
Missing right curly or square bracket at
projects/Test2/Test2-Plugin-SourceDiag/pres/x1.t
Show quoted text> line 19, at end of line
> syntax error at projects/Test2/Test2-Plugin-SourceDiag/pres/x1.t line 19,
> at EOF
> Execution of projects/Test2/Test2-Plugin-SourceDiag/pres/x1.t aborted due
> to compilation errors.
Note that my test file only has 17 lines. I will also note that this passes
fine if you swap out Test::Expr with Test::More (by work fine I mean no
syntax error, the assertion fails by design).