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

People
Owner: Nobody in particular
Requestors:
Cc:
AdminCc:

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

Attachments


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 Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.