[Module-build-checkins] Module-Build/t destinations.t,1.8,1.9
Status: Beta
Brought to you by:
kwilliams
|
From: Michael G S. <sc...@us...> - 2005-06-20 23:25:28
|
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 ) { |