"Mob Session DONE [ci-skip]"

This commit is contained in:
jem 2019-12-03 17:51:21 +01:00
parent c19498abbb
commit c1594a035e
2 changed files with 17 additions and 13 deletions

View file

@ -1,29 +1,27 @@
(ns cryogen-core.classpath-able-io (ns cryogen-core.classpath-able-io
(:require [clojure.java.io :as io] (:require [clojure.java.io :as io]
[clojure.string :as s] [clojure.string :as s]))
[me.raynes.fs :as fs]))
(defn file-from-cp-or-filesystem
[fs-prefix resource-path]
(let [file-from-cp (io/file (io/resource "templates/themes/bootstrap4-test/js"))
file-from-fs (io/file "./test-resources/templates/themes/bootstrap4-test/js")]
file-from-cp))
(defn copy-dir (defn copy-dir
[source-path target-path ignored-files] [source-path target-path ignored-files]
(fs/mkdirs target-path) )
(let [^java.io.FilenameFilter filename-filter (apply reject-re-filter ignored-files)
files (.listFiles (io/file source-path) filename-filter)]
(doseq [^java.io.File f files]
(let [out (io/file target-path (.getName f))]
(if (.isDirectory f)
(copy-dir f out ignored-files)
(io/copy f out))))))
(defn copy-resources (defn copy-resources
[source-path target-path] [source-path target-path]
(let [ignored-files []] (let [ignored-files []
source-file (io/file source-path)]
(cond (cond
(not (.exists (io/file source-path))) (not (.exists (io/file source-path)))
(throw (IllegalArgumentException. (str "resource " source-path " not found"))) (throw (IllegalArgumentException. (str "resource " source-path " not found")))
(.isDirectory (io/file source-path)) (.isDirectory (io/file source-path))
(copy-dir source-path target-path ignored-files) (copy-dir source-path target-path ignored-files)
:else )))
(fs/copy source-path target-path))))
(defn copy-resources-from-theme (defn copy-resources-from-theme
[theme target] [theme target]

View file

@ -15,6 +15,12 @@
(and (verify-file-exists path) (and (verify-file-exists path)
(.isDirectory (io/file path)))) (.isDirectory (io/file path))))
(deftest test-file-from-cp-or-filesystem
(is (do
(sut/copy-resources-from-theme theme target)
(and (verify-dir-exists (str target "/js"))
(verify-file-exists (str target "/js/dummy.js"))))))
(deftest test-copy-resources-from-theme (deftest test-copy-resources-from-theme
(is (do (is (do
(sut/copy-resources-from-theme theme target) (sut/copy-resources-from-theme theme target)