[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Guile 2.0.6 - some tests fail
From: |
Jan Synacek |
Subject: |
Re: Guile 2.0.6 - some tests fail |
Date: |
Thu, 11 Oct 2012 04:43:16 -0400 (EDT) |
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))
- Guile 2.0.6 - some tests fail, Jan Synacek, 2012/10/04
- Re: Guile 2.0.6 - some tests fail, Mark H Weaver, 2012/10/06
- Re: Guile 2.0.6 - some tests fail, Jan Synacek, 2012/10/15
- Re: Guile 2.0.6 - some tests fail, Ludovic Courtès, 2012/10/16
- Re: Guile 2.0.6 - some tests fail, Jan Synacek, 2012/10/17
- Re: Guile 2.0.6 - some tests fail, Ludovic Courtès, 2012/10/17