Ticket #12173: macports-pextlib-tests.patch

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

@@ -199 +199 @@
 }
 
 proc setup_trees {root} {
-    global trees
+    global trees tcl_platform
     
     array set trees {}
     
@@ -235 +235 @@
         $root/a/c/a     {link ../d}
     "
     
+    if {[string equal $tcl_platform(os) "Darwin"]} {
+
     set trees(sub2) "
         $root/a/c/a/     {link ../d}
         $root/a/c/a//a   file
@@ -242 +244 @@
         $root/a/c/a//c   directory
         $root/a/c/a//d   file
     "
+
+    } else {
+    # see http://www.freebsd.org/cgi/cvsweb.cgi/src/lib/libc/gen/fts.c#rev1.5
     
+    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
+    "
+
+    }
+    
     set trees(2) "
         $root/a/a       file
         $root/a/b       file

src/pextlib1.0/tests/checksums.tcl

@@ -9 +9 @@
         set testfile "/tmp/macports-pextlib-testchecksums"
         file delete -force $testfile
 
+        encoding system utf-8
+
         # create a dummy file.
         set chan [open $testfile w]
         puts $chan "Article premier"