master
jem 5 years ago
parent 64a3b1d62c
commit 9dc30ef71c

@ -14,7 +14,7 @@
[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: make fct wipe-folders (defn wipe-folder [folder])
(defn file-from-cp (defn file-from-cp
[resource-path] [resource-path]

@ -23,6 +23,21 @@
(and (verify-file-exists path) (and (verify-file-exists path)
(.isDirectory (io/file path)))) (.isDirectory (io/file path))))
(deftest test-wipe-public-folder
(is
(do
(.mkdir (io/file target))
(sut/wipe-folder target)
(not (verify-dir-exists target)))))
(deftest test-file-from-cp-or-filesystem
(is
(.exists (sut/file-from-cp-or-filesystem
"./test-resources/" "templates/themes/bootstrap4-test/js")))
(is
(.exists (sut/file-from-cp-or-filesystem
"./" ".gitkeep"))))
(deftest test-filter-for-ignore-patterns (deftest test-filter-for-ignore-patterns
(is (= (is (=
["file.js"] ["file.js"]

Loading…
Cancel
Save