Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

make-path should preserve a path containing just "/"

Browse source
This commit is contained in:
Alex Shinn 2014-02-12 08:14:33 +09:00
parent 9651f7456c
commit 90dbe1fdd2
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/pathname.scm
View file

@ -216,12 +216,15 @@
(substring-cursor s 0 (string-skip-right s #\/)))
(if (null? args)
""
(let ((start (trim-trailing-slash (x->string (car args)))))
(let* ((args0 (x->string (car args)))
(start (trim-trailing-slash args0)))
(let lp ((ls (cdr args))
(res (if (string=? "" start) '() (list start))))
(cond
((null? ls)
(string-join (reverse res)))
(if (and (null? res) (not (string=? "" args0)))
"/"
(string-join (reverse res))))
((pair? (car ls))
(lp (append (car ls) (cdr ls)) res))
(else

6
tests/path-tests.scm
View file

@ -194,5 +194,11 @@
(test "a/b/./c" (make-path "a" "b" "." "c"))
(test "a/b/../c" (make-path "a" "b" ".." "c"))
(test "a/b/c" (make-path "a" '("b" "c")))
(test "/" (make-path "/" ""))
(test "/" (make-path "/" "/"))
(test "/." (make-path "/" "."))
(test "/a" (make-path "/a" ""))
(test "/a" (make-path "/a" "/"))
(test "/a/." (make-path "/a" "."))
(test-end)