fix path nil error
This commit is contained in:
parent
ec587b54c5
commit
09ae42484b
2 changed files with 4 additions and 6 deletions
|
@ -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)))
|
||||
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue