Skip Menu |

This queue is for tickets about the Test-Harness CPAN distribution.

Report information
The Basics
Id: 4321
Status: resolved
Worked: 2 min
Priority: 0/
Queue: Test-Harness

Owner: Nobody in particular

Bug Information
Severity: Normal
Broken in: (no value)
Fixed in: (no value)


Subject: t\prove-includes....# Failed test (t\prove-includes.t at line 22)
Test-Harness-2.31_05\t\prove-includes.t should read
Download prove-includes.t
text/x-perl 575b
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" );
Rats! Some day I'll get the hang of platform agnosticism! Thanks for the patch.

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to