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.
|
