From 6f3f50197d1f02341d64a6943dfb52ea732244aa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Mar 2022 11:54:41 +0100 Subject: Rewrote tests for path operations. --- tests/util.scm | 22 ++++++++++++---------- 1 file changed, 12 insertions(+), 10 deletions(-) diff --git a/tests/util.scm b/tests/util.scm index d308ea2a..37711a2e 100644 --- a/tests/util.scm +++ b/tests/util.scm @@ -6,7 +6,7 @@ find-min find-max span-upto iterate ->string ->quoted-string begin1) - ((hnh util path) path-append) + ((hnh util path) path-append path-split) ((ice-9 ports) with-output-to-string) ((guile) set!) ) @@ -62,18 +62,20 @@ (test-equal 0 (iterate 1- zero? 10)) - - (test-equal "5" (->string 5)) (test-equal "5" (->string "5")) (test-equal "5" (->quoted-string 5)) (test-equal "\"5\"" (->quoted-string "5")) - -(test-equal "/home/hugo/" - (path-append "/home" "hugo/")) - -(test-equal "/home/hugo/" (path-append "/" "/home/" "/hugo/")) - -(test-equal "/" (path-append "")) +(test-equal "no slashes" "home/user" (path-append "home" "user")) +(test-equal "no slashes, absolute" "/home/user" (path-append "" "home" "user")) +(test-equal "slashes in one component, absolute" "/home/user" (path-append "" "/home/" "user")) +(test-equal "slashes in one component, absolute due to first" "/home/user" (path-append "/home/" "user")) +(test-equal "Slashes in both" "home/user" (path-append "home/" "/user")) +(test-equal "root" "/" (path-append "")) + +(test-equal '("usr" "lib" "test") (path-split "usr/lib/test")) +(test-equal '("usr" "lib" "test") (path-split "usr/lib/test/")) +(test-equal '("" "usr" "lib" "test") (path-split "/usr/lib/test")) +(test-equal '("" "usr" "lib" "test") (path-split "//usr////lib/test")) -- cgit v1.2.3