[Module-build-checkins] Module-Build/t install.t,1.12.2.3,1.12.2.4

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

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