[Module-build-checkins] Module-Build/t install.t,1.12.2.3,1.12.2.4
Status: Beta
Brought to you by:
kwilliams
|
From: Ken W. <kwi...@us...> - 2005-03-23 01:17:07
|
Update of /cvsroot/module-build/Module-Build/t In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26889/t Modified Files: Tag: release-0_26_branch install.t Log Message: --install_path should override --install_base Index: install.t =================================================================== RCS file: /cvsroot/module-build/Module-Build/t/install.t,v retrieving revision 1.12.2.3 retrieving revision 1.12.2.4 diff -u -d -r1.12.2.3 -r1.12.2.4 --- install.t 16 Mar 2005 16:51:42 -0000 1.12.2.3 +++ install.t 23 Mar 2005 01:16:56 -0000 1.12.2.4 @@ -1,7 +1,7 @@ use strict; use Test; -BEGIN { plan tests => 29 } +BEGIN { plan tests => 31 } use Module::Build; use File::Spec; use File::Path; @@ -130,11 +130,10 @@ '--install_base', $basedir])}; ok $@, ''; - my $relpath = $build->install_base_relative('lib'); - $install_to = File::Spec->catfile($destdir, $basedir, $relpath, 'Sample.pm'); - print "# Should have installed module as $install_to\n"; - ok -e $install_to; - + my $relpath = $build->install_base_relative('script'); + $install_to = File::Spec->catfile($destdir, $basedir, $relpath, 'sample.pl'); + ok -e $install_to, 1, "Should install script as $install_to"; + eval {$build->dispatch('realclean')}; ok $@, ''; } @@ -156,6 +155,16 @@ ok keys %$pms, 0; } +{ + # Make sure install_path overrides install_base + my $build = new Module::Build( module_name => 'Sample', + install_base => 'foo', + install_path => { lib => 'bar' }, + license => 'perl' ); + ok $build; + ok $build->install_destination('lib'), 'bar'; +} + sub strip_volume { my $dir = shift; (undef, $dir) = File::Spec->splitpath( $dir, 1 ); |