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};
|
