meissa/cryogen-core
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

wip

Browse source
This commit is contained in:
jem 2019-12-13 13:48:58 +01:00
parent 0d7521d87f
commit 549bf8275d
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/cryogen_core/classpath_able_io.clj
View file

@ -14,13 +14,19 @@
[ignore-patterns source-list] [ignore-patterns source-list]
(filter #(not (re-matches ignore-patterns %)) source-list)) (filter #(not (re-matches ignore-patterns %)) source-list))
; TODO: Datenstruktur [s/Str]
(defn delete-file-recursive (defn delete-file-recursive
[folders] [folders]
(let [file-list (filter #(.isFile %) folders) (when (not (empty? folders))
dir-list (filter #(not (.isFile %)) folders)] (let [file-to-work-with (first folders)
; TODO: .list fehlt noch
file-list (filter #(.isFile %) file-to-work-with)
dir-list (filter #(not (.isFile %)) file-to-work-with)]
(doseq [file file-list] (io/delete-file file)) (doseq [file file-list] (io/delete-file file))
(when (not (empty? dir-list)) (when (not (empty? dir-list))
(recur (drop 1 dir-list))))) (recur (drop 1 dir-list)))
(io/delete-file file-to-work-with))))
(defn file-from-cp (defn file-from-cp
[resource-path] [resource-path]

2
test/cryogen_core/classpath_able_io_test.clj
View file

@ -27,7 +27,7 @@
(is (is
(do (do
(.mkdir (io/file target)) (.mkdir (io/file target))
(sut/delete-file-recursive (io/file target)) (sut/delete-file-recursive (seq (io/file target)))
(not (verify-dir-exists target))))) (not (verify-dir-exists target)))))
(deftest test-file-from-cp-or-filesystem (deftest test-file-from-cp-or-filesystem