[Module-build-checkins] Module-Build/t tilde.t,1.1,1.2

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

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