Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8614/t
Modified Files:
ext.t
Log Message:
Integrate from branch
Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ext.t 6 Dec 2004 04:01:19 -0000 1.5
--- ext.t 13 Dec 2004 04:37:44 -0000 1.6
***************
*** 2,5 ****
--- 2,8 ----
use strict;
use Test;
+ use File::Spec;
+
+ require File::Spec->catfile('t', 'common.pl');
my @unix_splits =
***************
*** 52,56 ****
);
! plan tests => 12 + 2*@unix_splits + 2*@win_splits;
use Module::Build;
--- 55,59 ----
);
! plan tests => 13 + 2*@unix_splits + 2*@win_splits;
use Module::Build;
***************
*** 88,91 ****
--- 91,101 ----
}
+ {
+ # Make sure run_perl_script() propagates @INC
+ local @INC = ('whosiewhatzit', @INC);
+ my $output = stdout_of( sub { Module::Build->run_perl_script('', ['-le', 'print for @INC']) } );
+ ok $output, qr{^whosiewhatzit}m;
+ }
+
##################################################################
sub do_split_tests {
|
