[Module-build-checkins] Module-Build/t ext.t,1.5,1.6

[Ken W. <kwi...@us...>]

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 {