diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-11 03:27:57 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-11 03:27:57 +0100 |
| commit | 3c6bd65e402655aacb9dfd8e2edeb95563f3ccda (patch) | |
| tree | fee8a13ea4a21970f32e17df17072f85911c33bb | |
| parent | Fix IPv6-binding without hot-patching guile. (diff) | |
| download | calp-3c6bd65e402655aacb9dfd8e2edeb95563f3ccda.tar.gz calp-3c6bd65e402655aacb9dfd8e2edeb95563f3ccda.tar.xz | |
Add test for path-append without components.
| -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")) |