tests/file_paths: canonicalize directory separators

Turn backslashes into forward slashes to remove output discrepancies
between Windows and Unix platforms.

TN: V117-037
Change-Id: I87fdf9fe82623a31351804fbba13753491d1a323

Author: pmderodat

testsuite/tests/file_paths/test.adb

@@ -30,11 +30,30 @@ procedure Test is
 
    function Filename_Image (Filename : String) return String is
       F : constant Virtual_File := Create (+Filename);
+
+      function Canonicalize (S : String) return String;
+      --  Canonicalize backslashes to forward slashes
+
+      ------------------
+      -- Canonicalize --
+      ------------------
+
+      function Canonicalize (S : String) return String is
+      begin
+         return R : String := S do
+            for C of R loop
+               if C = '\' then
+                  C := '/';
+               end if;
+            end loop;
+         end return;
+      end Canonicalize;
+
    begin
       if F.Is_Absolute_Path then
-         return "abs(""" & (+F.Relative_Path (CWD)) & """)";
+         return "abs(""" & Canonicalize (+F.Relative_Path (CWD)) & """)";
       else
-         return """" & Filename & """";
+         return """" & Canonicalize (Filename) & """";
       end if;
    end Filename_Image;
 
@@ -68,7 +87,7 @@ procedure Test is
 begin
    --  The empty path is equivalent to the current working directory
 
-   Check ("", Path_Separator, If_Empty);
+   Check ("", ':', If_Empty);
 
    --  First items in the path have priority