[Module-build-checkins] Module-Build/t tilde.t,1.1,1.2
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-06-23 01:55:04
|
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; } |