Changeset 29414

Timestamp:

2007-09-23 02:40:13 (14 months ago)

Author:

eridius@…

Message:

Hack around Darwin's fts_open returning double-slashed paths for roots that end in a slash. Note that this hack is for the test only, fs-traverse will still return the double-slashed paths (#12173).

Files:

• trunk/base/src/pextlib1.0/tests/fs-traverse.tcl (modified) (2 diffs)

trunk/base/src/pextlib1.0/tests/fs-traverse.tcl

@@ -37 +37 @@
         set output [list]
         fs-traverse file $root/a/c/a/ {
-            lappend output $file
+            lappend output [string map {// /} $file]
         }
         check_output $output $trees(sub2)
@@ -238 +238 @@
     set trees(sub2) "
         $root/a/c/a/     {link ../d}
-        $root/a/c/a//a   file
-        $root/a/c/a//b   {link ../../b/a}
-        $root/a/c/a//c   directory
-        $root/a/c/a//d   file
+        $root/a/c/a/a   file
+        $root/a/c/a/b   {link ../../b/a}
+        $root/a/c/a/c   directory
+        $root/a/c/a/d   file
     "