Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4410/t
Modified Files:
Tag: release-0_26_branch
ext.t
Log Message:
Propagate @INC in run_perl_script()
Index: ext.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/ext.t,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -C2 -d -r1.1.2.4 -r1.1.2.5
*** ext.t 6 Dec 2004 04:02:18 -0000 1.1.2.4
--- ext.t 13 Dec 2004 04:16:40 -0000 1.1.2.5
***************
*** 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 {
|
