From 20e2d6380426088c21d0c7bd8211f2bee780a26c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 15 May 2012 19:12:39 +0200 Subject: [PATCH] Add more `%file-port-name-canonicalization' tests. * test-suite/tests/ports.test ("%file-port-name-canonicalization")["relative canonicalization with /", "relative canonicalization from ice-9", "absolute canonicalization from ice-9"]: New tests. --- test-suite/tests/ports.test | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test index 07e58f655..2aec1f0b2 100644 --- a/test-suite/tests/ports.test +++ b/test-suite/tests/ports.test @@ -1110,7 +1110,25 @@ (equal? "/dev/null" (with-load-path (cons "" (delete "/" %load-path)) (with-fluids ((%file-port-name-canonicalization 'relative)) - (port-filename (open-input-file "/dev/null"))))))) + (port-filename (open-input-file "/dev/null")))))) + + (pass-if "relative canonicalization with /" + (equal? "dev/null" + (with-load-path (cons "/" %load-path) + (with-fluids ((%file-port-name-canonicalization 'relative)) + (port-filename (open-input-file "/dev/null")))))) + + (pass-if "relative canonicalization from ice-9" + (equal? "ice-9/q.scm" + (with-fluids ((%file-port-name-canonicalization 'relative)) + (port-filename + (open-input-file (%search-load-path "ice-9/q.scm")))))) + + (pass-if "absolute canonicalization from ice-9" + (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"))))))) (delete-file (test-file))