search

Perl-Critic / PPI

53 stars 44 forks source link

t/marpa.t fails without '.' in @INC #200

Closed kentfredric closed 7 years ago

kentfredric commented 7 years ago

b4dd2c0a33eaee09012570b3bf16ef44326dfc26 introduces another test that needs '.' in @INC special treatment.

$ perl -Ilib t/marpa.t 
Can't locate t/lib/PPI/Test/pragmas.pm in @INC (you may need to install the t::lib::PPI::Test::pragmas module) (@INC contains: lib /home/kent/perl5/perlbrew/perls/5.25.12-nossp-sip13-nopmc-nodot/lib/site_perl/5.25.12/x86_64-linux /home/kent/perl5/perlbrew/perls/5.25.12-nossp-sip13-nopmc-nodot/lib/site_perl/5.25.12 /home/kent/perl5/perlbrew/perls/5.25.12-nossp-sip13-nopmc-nodot/lib/5.25.12/x86_64-linux /home/kent/perl5/perlbrew/perls/5.25.12-nossp-sip13-nopmc-nodot/lib/5.25.12) at t/marpa.t line 5.
BEGIN failed--compilation aborted at t/marpa.t line 5.
$ perl -Ilib -I. t/marpa.t 
1..23
ok 1 - "use v5 ;"
ok 2 - "use 5 ;"
ok 3 - "use 5.1 ;"
ok 4 - "use xyz () ;"
ok 5 - "use v5 xyz () ;"
ok 6 - "use 5 xyz () ;"
ok 7 - "use 5.1 xyz () ;"
ok 8 - "use xyz v5 () ;"
ok 9 - "use xyz 5 () ;"
ok 10 - "use xyz 5.1 () ;"
ok 11 - "use v5 xyz 5 ;"
ok 12 - "use 5 xyz 5 ;"
ok 13 - "use 5.1 xyz 5 ;"
ok 14 - "use xyz v5 5 ;"
ok 15 - "use xyz 5 5 ;"
ok 16 - "use xyz 5.1 5 ;"
ok 17 - "use v5 xyz 5,5 ;"
ok 18 - "use 5 xyz 5,5 ;"
ok 19 - "use 5.1 xyz 5,5 ;"
ok 20 - "use xyz v5 5,5 ;"
ok 21 - "use xyz 5 5,5 ;"
ok 22 - "use xyz 5.1 5,5 ;"
ok 23 - "use xyz 5.1 \@a ;"