Update of /cvsroot/module-build/Module-Build/t
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15964/t
Modified Files:
destinations.t
Log Message:
Refactor test_install_destination() to test_install_destinations() to reflect
that it tests a bunch of destinations, not just one.
Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- destinations.t 20 Jun 2005 23:24:00 -0000 1.8
+++ destinations.t 20 Jun 2005 23:24:42 -0000 1.9
@@ -31,7 +31,7 @@
is( $m->install_base, undef );
is( $m->prefix, undef );
-test_install_destination( $m, {
+test_install_destinations( $m, {
lib => $Config{installsitelib},
arch => $Config{installsitearch},
bin => $Config{installsitebin} || $Config{installbin},
@@ -49,7 +49,7 @@
is( $m->install_base, $install_base );
-test_install_destination( $m, {
+test_install_destinations( $m, {
lib => catdir( $install_base, 'lib', 'perl5' ),
arch => catdir( $install_base, 'lib', 'perl5', $Config{archname} ),
bin => catdir( $install_base, 'bin' ),
@@ -73,7 +73,7 @@
# Check that we can return to normality after setting prefix.
$m->install_base( $install_base );
-test_install_destination( $m, {
+test_install_destinations( $m, {
lib => catdir( $install_base, 'lib', 'perl5' ),
arch => catdir( $install_base, 'lib', 'perl5', $Config{archname} ),
bin => catdir( $install_base, 'bin' ),
@@ -93,7 +93,7 @@
}
-sub test_install_destination {
+sub test_install_destinations {
my($mb, $expect) = @_;
while( my($type, $expect) = each %$expect ) {
|
