[Module-build-checkins] Module-Build/t destinations.t,1.27,1.28

[Ken W. <kwi...@us...>]

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

Modified Files:
	destinations.t 
Log Message:
Take advantage of the new dir_contains() method


Index: destinations.t
===================================================================
RCS file: /cvsroot/module-build/Module-Build/t/destinations.t,v
retrieving revision 1.27
retrieving revision 1.28
diff -u -d -r1.27 -r1.28
--- destinations.t	27 Sep 2005 19:38:25 -0000	1.27
+++ destinations.t	28 Sep 2005 04:23:20 -0000	1.28
@@ -188,13 +188,13 @@
 
     foreach my $type (qw(lib arch bin script bindoc libdoc binhtml libhtml)) {
         my $dest = $mb->install_destination( $type );
-        like( $dest, "/^\Q$prefix\E/", "$type prefixed");
+	ok $mb->dir_contains($prefix, $dest), "$type prefixed";
 
         if( $test_config && $test_config->{$type} ) {
             my @dest_dirs = splitdir( $dest );
             my @test_dirs = splitdir( $test_config->{$type} );
 
-            is( $dest_dirs[-1], $test_dirs[-1], "  suffix correctish ($dest vs $test_config->{$type})" );
+            is( $dest_dirs[-1], $test_dirs[-1], "  suffix correctish ($test_config->{$type} + $prefix = $dest)" );
         }
     }
 }