[svn:parrot] r17406 - trunk/t/distro

[paultcochrane]

Author: paultcochrane
Date: Fri Mar  9 05:38:13 2007
New Revision: 17406

Modified:
   trunk/t/distro/file_metadata.t

Log:
Applied Windows directory separator fix courtesy of Ron Blaschke 
(ron at rblasch dot org)


Modified: trunk/t/distro/file_metadata.t
==============================================================================
--- trunk/t/distro/file_metadata.t      (original)
+++ trunk/t/distro/file_metadata.t      Fri Mar  9 05:38:13 2007
@@ -172,9 +172,6 @@
 =cut
 
 BEGIN {
-    plan skip_all => 'RT #41569 - this test is broken on win32'
-        if $^O eq 'MSWin32'; 
-
     unless ( $Parrot::Revision::current or `svk ls .` ) {
         plan skip_all => 'not a working copy';
     }
@@ -231,7 +228,12 @@
 
                 # This RE may be a little wonky.
                 if ( $result =~ m{(.*) - (.*)} ) {
-                    $results{$1} = $2;
+                    my ($file, $attribute) = ($1, $2);
+                    # file names are reported with backslashes on Windows,
+                    # but we want forward slashes
+                    $file =~ s!\\!/!g if $^O eq 'MSWin32';
+
+                    $results{$file} = $attribute;
                 }
             }