Hi,
And now with the patch.
Mark H Weaver <m...@netris.org> 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))
