From f3bb42fc9bc0bac1d8589a9788a93ad4ebbbda3d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 1 Nov 2012 00:43:58 +0100 Subject: [PATCH] test-suite: Use `pass-if-equal' in `ftw.test'. * test-suite/tests/ftw.test ("file-system-fold")["test-suite (never enter)", "test-suite/lib.scm (flat file)"]: Use `pass-if-equal' instead of `pass-if'. --- test-suite/tests/ftw.test | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test index 33537d04b..cf49156fb 100644 --- a/test-suite/tests/ftw.test +++ b/test-suite/tests/ftw.test @@ -182,26 +182,26 @@ (any (match-lambda (('skip (= basename "vm")) #t) (_ #f)) between)))))) - (pass-if "test-suite (never enter)" + (pass-if-equal "test-suite (never enter)" + `((skip ,%test-dir)) (let ((enter? (lambda (n s r) #f)) (leaf (lambda (n s r) (cons `(leaf ,n) r))) (down (lambda (n s r) (cons `(down ,n) r))) (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) - `((skip , %test-dir))))) + (file-system-fold enter? leaf down up skip error '() %test-dir))) - (pass-if "test-suite/lib.scm (flat file)" - (let ((enter? (lambda (n s r) #t)) - (leaf (lambda (n s r) (cons `(leaf ,n) r))) - (down (lambda (n s r) (cons `(down ,n) r))) - (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))) - (name (string-append %test-suite-lib-dir "/lib.scm"))) - (equal? (file-system-fold enter? leaf down up skip error '() name) - `((leaf ,name))))) + (let ((name (string-append %test-suite-lib-dir "/lib.scm"))) + (pass-if-equal "test-suite/lib.scm (flat file)" + `((leaf ,name)) + (let ((enter? (lambda (n s r) #t)) + (leaf (lambda (n s r) (cons `(leaf ,n) r))) + (down (lambda (n s r) (cons `(down ,n) r))) + (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)))) + (file-system-fold enter? leaf down up skip error '() name)))) (pass-if "ENOENT" (let ((enter? (lambda (n s r) #t))