test(fs): add unittests for new fn

pull/10526/head
Andelf 2023-11-23 13:44:54 +08:00
parent 3069f5d7e3
commit 68bae90039
1 changed files with 9 additions and 1 deletions

View File

@ -35,7 +35,15 @@
"global dir") "global dir")
(is (= "/foo/bar/baz/asdf" (path/path-join "/foo/bar//baz/asdf/quux/.."))) (is (= "/foo/bar/baz/asdf" (path/path-join "/foo/bar//baz/asdf/quux/..")))
(is (= "assets:///foo.bar/baz" (path/path-join "assets:///foo.bar" "baz"))) (is (= "assets:///foo.bar/baz" (path/path-join "assets:///foo.bar" "baz")))
(is (= "assets:///foo.bar/baz" (path/path-join "assets:///foo.bar/" "baz"))))) (is (= "assets:///foo.bar/baz" (path/path-join "assets:///foo.bar/" "baz")))
(is (= "//NAS/MyGraph/logseq/config.edn" (path/path-join "//NAS/MyGraph" "logseq/config.edn")))))
(deftest prepend-protocol
(testing "prepend-protocol"
(is (= "file:///home/logseq/graph" (path/prepend-protocol "file:" "/home/logseq/graph")))
(is (= "file:///C%3A/Graph/pages" (path/prepend-protocol "file:" "C:/Graph/pages")))
(is (= "file://NAS/MyGraph" (path/prepend-protocol "file:" "//NAS/MyGraph"))
"Windows UNC URL")))
(deftest path-absolute (deftest path-absolute
(testing "absolute" (testing "absolute"