| Subject: | t\prove-includes....# Failed test (t\prove-includes.t at line 22) |
Test-Harness-2.31_05\t\prove-includes.t should read
BEGIN {
if( $ENV{PERL_CORE} ) {
chdir 't';
@INC = ('../lib', 'lib');
}
else {
unshift @INC, 't/lib';
}
}
use strict;
use File::Spec;
use Test::More;
plan skip_all => "Not installing prove" if -e "t/SKIP-PROVE";
plan tests=>1;
local $/ = undef;
my $prove = File::Spec->catfile( qw( blib script prove ) );
my $actual = qx/$prove -d -v -Ifirst -I second -Ithird -T -b/;
my $expected = '# $Test::Harness::Switches: -I'.(File::Spec->catfile(qw[blib lib]))." -Ifirst -Isecond -Ithird -T\n";
is( $actual, $expected, "Proper flags found" );