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
|
(defn path-if-exists
|
||||||
[& path-elements]
|
[& path-elements]
|
||||||
(let [path-from-fs
|
(let [path-from-fs
|
||||||
(apply absolut-path
|
(absolut-path
|
||||||
;TODO: sollte hier nicht auch stehen:
|
(apply this/virtual-path-from-elements path-elements))]
|
||||||
;(apply this/virtual-path-from-elements path-elements)
|
|
||||||
path-elements)]
|
|
||||||
(when (Files/exists path-from-fs follow-link-option)
|
(when (Files/exists path-from-fs follow-link-option)
|
||||||
path-from-fs)))
|
path-from-fs)))
|
||||||
|
|
||||||
|
|
|
@ -34,9 +34,9 @@
|
||||||
(is
|
(is
|
||||||
(sut/path-if-exists fs-root "/File With Space")))
|
(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
|
(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
|
(deftest test-list-entries-for-dir
|
||||||
|
|
Loading…
Reference in a new issue