[Module-build-checkins] Module-Build/t destinations.t,1.10,1.11

[Michael G S. <sc...@us...>]

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

Modified Files:
	destinations.t 
Log Message:
This test exposes that installdirs() silently throws away your settings.



Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- destinations.t	20 Jun 2005 23:54:40 -0000	1.10
+++ destinations.t	21 Jun 2005 00:03:15 -0000	1.11
@@ -13,7 +13,7 @@
 }
 
 
-use Test::More tests => 44;
+use Test::More tests => 49;
 
 use_ok 'Module::Build';
 
@@ -27,6 +27,7 @@
 $m->install_base(undef);
 $m->prefix(undef);
 
+is( $m->installdirs, 'site' );
 is( $m->install_base, undef );
 is( $m->prefix,       undef );
 
@@ -43,6 +44,7 @@
 
 # Is installdirs honored?
 $m->installdirs('core');
+is( $m->installdirs, 'core' );
 
 test_install_destinations( $m, {
         lib     => $Config{installprivlib},
@@ -55,6 +57,7 @@
 
 
 $m->installdirs('site');
+is( $m->installdirs, 'site' );
 
 
 # Check install_base()
@@ -89,10 +92,12 @@
 
 # And now that prefix honors installdirs.
 $m->installdirs('core');
+is( $m->installdirs, 'core' );
 
 test_prefix($prefix);
 
 $m->installdirs('site');
+is( $m->installdirs, 'site' );
 
 
 # Check that we can use install_base after setting prefix.