diff options
Diffstat (limited to 't/harness')
-rw-r--r-- | t/harness | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -6,8 +6,8 @@ BEGIN { chdir 't' if -d 't'; @INC = '../lib'; # pick up only this build's lib - $ENV{PERL5LIB} = '../lib'; # so children will see it too } +delete $ENV{PERL5LIB}; my $torture; # torture testing? @@ -209,7 +209,6 @@ if (@ARGV) { } else { warn "$0: cannot open $mani: $!\n"; } - push @last, <Module_Pluggable/*.t>; push @last, <pod/*.t>; push @last, <x2p/*.t>; @@ -244,6 +243,12 @@ if ($jobs) { } ); } + $h->callback( + parser_args => sub { + my ( $args, $test ) = @_; + push @{ $args->{switches} }, '-I../lib'; + } + ); $h->runtests(@tests); } else { Test::Harness::runtests @tests; |