Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4722/t
Modified Files:
tilde.t
Log Message:
The string parameters that should be de-tilde-ified are prefix,
install_base, and destdir, not prefix, install_base, install_dest
(whatever that is) and install_path.
We *should* handle install_path too, but it's not a string parameter,
it's a hash.
Also, in the tests we can't guarantee that the home directory will be
at the very start of the installation path.
Index: tilde.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- tilde.t 23 Jun 2005 01:23:55 -0000 1.1
+++ tilde.t 23 Jun 2005 01:54:55 -0000 1.2
@@ -4,7 +4,7 @@
use strict;
-use Test::More tests => 1;
+use Test::More tests => 2;
use Cwd;
use File::Spec::Functions qw(catdir);
@@ -12,15 +12,15 @@
my $cwd = cwd;
-{
+foreach my $param (qw(install_base prefix)) {
local $ENV{HOME} = 'home';
chdir 'Sample';
- Module::Build->run_perl_script('Build.PL', [], ['--install_base=~']);
+ Module::Build->run_perl_script('Build.PL', [], ["--$param=~"]);
my $mb = Module::Build->current;
- like( $mb->install_destination('lib'), qr/^$ENV{HOME}/ );
+ like( $mb->install_destination('lib'), qr/\Q$ENV{HOME}/ );
chdir $cwd;
}
|
