[Module-build-checkins] [svn:Module-Build] r5869 - Module-Build/trunk/t

[<ra...@cv...>]

Author: randys
Date: Thu Apr  6 20:31:02 2006
New Revision: 5869

Modified:
   Module-Build/trunk/t/destinations.t

Log:
Fixup some cross-platform paths.

Modified: Module-Build/trunk/t/destinations.t
==============================================================================
--- Module-Build/trunk/t/destinations.t	(original)
+++ Module-Build/trunk/t/destinations.t	Thu Apr  6 20:31:02 2006
@@ -92,10 +92,10 @@
     like( $@, qr/Value must be a relative path/, '  emits error if path not relative' );
 
     $path = $mb->install_base_relpaths('elem' => 'foo/bar');
-    is( $path, 'foo/bar', '  returns assigned path' );
+    is( $path, catdir(qw(foo bar)), '  returns assigned path' );
 
     $path = $mb->install_base_relpaths('elem');
-    is( $path, 'foo/bar', '  can read stored path' );
+    is( $path, catdir(qw(foo/bar)), '  can read stored path' );
 
     $map = $mb->install_base_relpaths();
     is_deeply( $map->{elem}, [qw(foo bar)], '  can access map' );
@@ -121,10 +121,10 @@
     like( $@, qr/Value must be a relative path/, '  emits error if path not relative' );
 
     $path = $mb->prefix_relpaths('site', 'elem' => 'foo/bar');
-    is( $path, 'foo/bar', '  returns assigned path' );
+    is( $path, catdir(qw(foo bar)), '  returns assigned path' );
 
     $path = $mb->prefix_relpaths('site', 'elem');
-    is( $path, 'foo/bar', '  can read stored path' );
+    is( $path, catdir(qw(foo bar)), '  can read stored path' );
 
     $map = $mb->prefix_relpaths();
     is_deeply( $map->{elem}, [qw(foo bar)], '  can access map' );