diff options
| -rw-r--r-- | module/hnh/util/path.scm | 1 | ||||
| -rw-r--r-- | tests/test/util.scm | 2 |
2 files changed, 3 insertions, 0 deletions
diff --git a/module/hnh/util/path.scm b/module/hnh/util/path.scm index b0991073..d22e8242 100644 --- a/module/hnh/util/path.scm +++ b/module/hnh/util/path.scm @@ -17,6 +17,7 @@ (define path-absolute? absolute-file-name?) ;; TODO remove intermidiate period components +;; e.x. /a/../b => /b (define (path-append . strings) (fold (lambda (s done) (string-append diff --git a/tests/test/util.scm b/tests/test/util.scm index ab50898a..719afbed 100644 --- a/tests/test/util.scm +++ b/tests/test/util.scm @@ -254,6 +254,8 @@ (test-equal "root" "/" (path-append "")) +(test-equal "No components" "" (path-append)) + (test-equal '("usr" "lib" "test") (path-split "usr/lib/test")) |