[Module-build-checkins] Module-Build/t tilde.t,1.4,1.5

[Michael G S. <sc...@us...>]

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

Modified Files:
	tilde.t 
Log Message:
Restructuring to a more flexible setup.

Testing destdir.

Testing multiple --install_path settings.  CURRENTLY FAILING lib is left
unset.  Investigating.


Index: tilde.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/tilde.t,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- tilde.t	23 Jun 2005 02:19:34 -0000	1.4
+++ tilde.t	23 Jun 2005 02:35:33 -0000	1.5
@@ -5,7 +5,7 @@
 use lib 't/lib';
 use strict;
 
-use Test::More tests => 6;
+use Test::More tests => 9;
 
 use TieOut;
 use Cwd;
@@ -14,8 +14,8 @@
 
 my $cwd = cwd;
 
-sub test_tilde_expansion {
-    my($args, $expect) = @_;
+sub run_sample {
+    my($args) = @_;
 
     local $Test::Builder::Level = $Test::Builder::Level + 1;
 
@@ -25,26 +25,44 @@
 
     my $mb = Module::Build->current;
 
-    my $ret = like( $mb->install_destination('lib'), $expect,
-                    join ' ', @$args
-                  );
-
     chdir $cwd;
-
-    return $ret;
+    
+    return $mb;
 }
 
+
 {
     local $ENV{HOME} = 'home';
-    test_tilde_expansion(['--install_base=~'],     qr{^$ENV{HOME}} );
-    test_tilde_expansion(['--install_base=~/foo'], qr{^$ENV{HOME}/foo} );
-    test_tilde_expansion(['--install_base=~~'],    qr{^~~} );
-    test_tilde_expansion(['--install_base=foo~'],  qr{^foo~} );
 
-    test_tilde_expansion(['--prefix=~'],           qr{^$ENV{HOME}} );
+    my $mb;
+
+    $mb = run_sample( ['--install_base=~']);
+    is( $mb->install_base,      $ENV{HOME} );
+
+    $mb = run_sample( ['--install_base=~/foo'], qr{^$ENV{HOME}/foo} );
+    is( $mb->install_base,      "$ENV{HOME}/foo" );
+
+    $mb = run_sample( ['--install_base=~~'] );
+    is( $mb->install_base,      '~~' );
+
+    $mb = run_sample( ['--install_base=foo~'] );
+    is( $mb->install_base,      'foo~' );
+
+    $mb = run_sample( ['--prefix=~'] );
+    is( $mb->prefix,            $ENV{HOME} );
+
+    $mb = run_sample( ['--install_path', 'html=~/html',
+                       '--install_path', 'lib=~/lib'
+                      ] );
+    is( $mb->install_destination('lib'),  "$ENV{HOME}/lib" );
+    is( $mb->install_destination('html'), "$ENV{HOME}/html" );
+
+    $mb = run_sample( ['--install_path', 'lib=~/lib'] );
+    is( $mb->install_destination('lib'),  "$ENV{HOME}/lib" );
+
+    $mb = run_sample( ['--destdir=~'] );
+    is( $mb->destdir,           $ENV{HOME} );
 
-    test_tilde_expansion(['--install_path', 'lib=~/lib'], 
-                                                   qr{^$ENV{HOME}/lib} );
 }