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