[Module-build-checkins] Module-Build/t install.t,1.12,1.13

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

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

Modified Files:
	install.t 
Log Message:
Some changes to install_path and install_base

Index: install.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/install.t,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** install.t	4 Oct 2004 22:13:48 -0000	1.12
--- install.t	26 Dec 2004 05:10:52 -0000	1.13
***************
*** 2,6 ****
  
  use Test; 
! BEGIN { plan tests => 29 }
  use Module::Build;
  use File::Spec;
--- 2,6 ----
  
  use Test; 
! BEGIN { plan tests => 31 }
  use Module::Build;
  use File::Spec;
***************
*** 64,68 ****
    eval {$build->dispatch('install', install_base => $libdir, destdir => $destdir)};
    ok $@, '';
!   my $install_to = File::Spec->catfile($destdir, $libdir, 'lib', 'Sample.pm');
    print "Should have installed module as $install_to\n";
    ok -e $install_to;  
--- 64,68 ----
    eval {$build->dispatch('install', install_base => $libdir, destdir => $destdir)};
    ok $@, '';
!   my $install_to = File::Spec->catfile($destdir, $libdir, 'lib', 'perl5', 'Sample.pm');
    print "Should have installed module as $install_to\n";
    ok -e $install_to;  
***************
*** 125,132 ****
    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;
    
    eval {$build->dispatch('realclean')};
--- 125,130 ----
    ok $@, '';
    
!   $install_to = File::Spec->catfile($destdir, $libdir, 'Sample.pm');
!   ok -e $install_to, 1, "Look for file at $install_to";
    
    eval {$build->dispatch('realclean')};
***************
*** 135,138 ****
--- 133,145 ----
  
  {
+   # Make sure 'install_path' overrides 'install_base'
+   my $build = Module::Build->new( module_name => 'Sample',
+ 				  install_base => File::Spec->catdir('', 'foo'),
+ 				  install_path => {lib => File::Spec->catdir('', 'bar')});
+   ok $build;
+   ok $build->install_destination('lib'), File::Spec->catdir('', 'bar');
+ }
+ 
+ {
    # _find_file_by_type() isn't a public method, but this is currently
    # the only easy way to test that it works properly.