Re: Guile 2.0.6 - some tests fail

[Ludovic Courtès]

Hi,

And now with the patch.

Mark H Weaver <address@hidden> skribis:

>> FAIL: ftw.test: file-system-fold: test-suite (never enter)
>> FAIL: ftw.test: file-system-fold: test-suite/lib.scm (flat file)
>> FAIL: ftw.test: scandir: no select
>> FAIL: ports.test: %file-port-name-canonicalization: absolute 
>> canonicalization from ice-9

Can you try the following patch, then run “./check-guile ftw.test
ports.test”, and send the output?

TIA,
Ludo’.

diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test
index 33537d0..a3be1a7 100644
--- a/test-suite/tests/ftw.test
+++ b/test-suite/tests/ftw.test
@@ -189,7 +189,7 @@
           (up     (lambda (n s r) (cons `(up ,n) r)))
           (skip   (lambda (n s r) (cons `(skip ,n) r)))
           (error  (lambda (n s e r) (cons `(error ,n) r))))
-      (equal? (file-system-fold enter? leaf down up skip error '() %test-dir)
+      (equal? (pk 'never-enter (file-system-fold enter? leaf down up skip 
error '() %test-dir))
               `((skip , %test-dir)))))
 
   (pass-if "test-suite/lib.scm (flat file)"
@@ -200,7 +200,7 @@
           (skip   (lambda (n s r) (cons `(skip ,n) r)))
           (error  (lambda (n s e r) (cons `(error ,n) r)))
           (name   (string-append %test-suite-lib-dir "/lib.scm")))
-      (equal? (file-system-fold enter? leaf down up skip error '() name)
+      (equal? (pk 'flat (file-system-fold enter? leaf down up skip error '() 
name))
               `((leaf ,name)))))
 
   (pass-if "ENOENT"
@@ -320,7 +320,7 @@
     (not (scandir "/.does-not-exist.")))
 
   (pass-if "no select"
-    (null? (scandir %test-dir (lambda (_) #f)))))
+    (null? (pk 'no-select (scandir %test-dir (lambda (_) #f))))))
 
 ;;; Local Variables:
 ;;; eval: (put 'with-file-tree 'scheme-indent-function 2)
diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 613d269..f00e693 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -1188,7 +1188,7 @@
     (equal? (string-append (assoc-ref %guile-build-info 'top_srcdir)
                            "/module/ice-9/q.scm")
             (with-fluids ((%file-port-name-canonicalization 'absolute))
-              (port-filename (open-input-file (%search-load-path 
"ice-9/q.scm")))))))
+              (pk 'canon (port-filename (open-input-file (%search-load-path 
"ice-9/q.scm"))))))))
 
 (delete-file (test-file))