[Module-build-checkins] Module-Build/t basic.t,1.36,1.37 compat.t,1.22,1.23

[Randy W. S. <si...@us...>]

Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15706/t

Modified Files:
	basic.t compat.t 
Log Message:
Fix tests to ignore any user defined '~/.modulebuildrc' file.

Index: compat.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/compat.t,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -d -r1.22 -r1.23
--- compat.t	17 Feb 2005 02:25:18 -0000	1.22
+++ compat.t	31 Mar 2005 09:40:14 -0000	1.23
@@ -103,6 +103,7 @@
   my $libdir = File::Spec->catdir( $startdir, 't', 'libdir' );
   my $result = $build->run_perl_script('Makefile.PL', [], 
 				       [
+					'SKIP_RCFILE=1',
 					"LIB=$libdir",
 					'TEST_VERBOSE=1',
 					'INSTALLDIRS=perl',

Index: basic.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/basic.t,v
retrieving revision 1.36
retrieving revision 1.37
diff -u -d -r1.36 -r1.37
--- basic.t	7 Jan 2005 10:15:53 -0000	1.36
+++ basic.t	31 Mar 2005 09:40:14 -0000	1.37
@@ -124,7 +124,7 @@
   
   chdir 'Sample';
 
-  eval {Module::Build->run_perl_script('Build.PL', [], ['--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey', '--destdir', 'yo', '--verbose', '1'])};
+  eval {Module::Build->run_perl_script('Build.PL', [], ['skip_rcfile=1', '--config', "foocakes=barcakes", '--foo', '--bar', '--bar', '-bat=hello', 'gee=whiz', '--any', 'hey', '--destdir', 'yo', '--verbose', '1'])};
   ok $@, '';
   
   my $b = Module::Build->resume();
@@ -143,7 +143,7 @@
   ok $b->runtime_params('verbose'), '1';
   ok !$b->runtime_params('license');
   ok my %runtime = $b->runtime_params;
-  ok scalar keys %runtime, 3;
+  ok scalar keys %runtime, 4;
   ok $runtime{destdir}, 'yo';
   ok $runtime{verbose}, '1';
   ok $runtime{config};