fix(fs): path-join testcase

This commit is contained in:
Andelf
2023-11-23 13:27:53 +08:00
parent 61a3c19176
commit 3069f5d7e3

View File

@@ -169,7 +169,8 @@
(if (is-file-url? base)
(apply url-join base segments)
(let [rejoined-path (apply path-join-internal base segments)]
(if (string/starts-with? base "//") ;; Win path fix
(if (and (not-empty base)
(string/starts-with? base "//")) ;; Win path fix
(str "/" rejoined-path)
rejoined-path))))