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

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

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

Modified Files:
	destinations.t 
Log Message:
Add tests to make sure prefixification does not go outside the prefix.
This is currently broken and the tests are TODO.

Added better names to the test subroutines.


Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- destinations.t	21 Jun 2005 00:03:15 -0000	1.11
+++ destinations.t	21 Jun 2005 22:08:13 -0000	1.12
@@ -13,7 +13,7 @@
 }
 
 
-use Test::More tests => 49;
+use Test::More tests => 55;
 
 use_ok 'Module::Build';
 
@@ -100,6 +100,19 @@
 is( $m->installdirs, 'site' );
 
 
+# Try a config setting which would result in installation locations outside
+# the prefix.  Ensure it doesn't.
+TODO: {
+    local $TODO = 'prefix doesnt protect against going outside itself';
+
+    $m->{config}{siteprefixexp} = '/wierd/prefix';
+
+    $prefix = catdir('another', 'prefix');
+    $m->prefix($prefix);
+    test_prefix($prefix);
+}
+
+
 # Check that we can use install_base after setting prefix.
 $m->install_base( $install_base );
 
@@ -120,7 +133,7 @@
 
     foreach my $type (qw(lib arch bin script bindoc libdoc)) {
         my $dest = $m->install_destination( $type );
-        like( $dest, "/^\Q$prefix\E/");
+        like( $dest, "/^\Q$prefix\E/", "$type prefixed");
     }
 }
 
@@ -131,6 +144,6 @@
     local $Test::Builder::Level = $Test::Builder::Level + 1;
 
     while( my($type, $expect) = each %$expect ) {
-        is( $m->install_destination($type), $expect, $type );
+        is( $m->install_destination($type), $expect, "$type destination" );
     }
 }