fix path nil error

This commit is contained in:
jem 2020-02-14 20:07:59 +01:00
parent ec587b54c5
commit 09ae42484b
2 changed files with 4 additions and 6 deletions

View file

@ -30,10 +30,8 @@
(defn path-if-exists
[& path-elements]
(let [path-from-fs
(apply absolut-path
;TODO: sollte hier nicht auch stehen:
;(apply this/virtual-path-from-elements path-elements)
path-elements)]
(absolut-path
(apply this/virtual-path-from-elements path-elements))]
(when (Files/exists path-from-fs follow-link-option)
path-from-fs)))

View file

@ -34,9 +34,9 @@
(is
(sut/path-if-exists fs-root "/File With Space")))
(deftest should-find-path-empty-base-path
(deftest should-find-path-with-empty-base-path
(is
(sut/path-if-exists fs-root "" "/dummy/dummy_from_fs")))
(sut/path-if-exists fs-root nil "/dummy/dummy_from_fs")))
(deftest test-list-entries-for-dir