luciano/testcontainers-clj
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleanup, ensure Clojure types instead of Java types

Browse source
This commit is contained in:
Rob Hanlon 2020-08-04 12:17:07 -07:00
parent d9e9b9724d
commit 92386aa9cf
No known key found for this signature in database
GPG key ID: 14C05B6156CB50E6
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/clj_test_containers/core.clj
View file

@ -16,22 +16,22 @@
[{:keys [container exposed-ports env-vars command]}]
(.setExposedPorts container (map int exposed-ports))
(when (some? env-vars)
(doseq [pair env-vars]
(.addEnv container (first pair) (second pair))))
(run! (fn [[k v]] (.addEnv container k v)) env-vars)
(when (some? command)
(when command
(.setCommand container command))
{:container container
:exposed-ports (.getExposedPorts container)
:env-vars (.getEnvMap container)
:exposed-ports (vec (.getExposedPorts container))
:env-vars (into {} (.getEnvMap container))
:host (.getHost container)})
(defn create
"Creates a generic testcontainer and sets its properties"
[{:keys [image-name] :as options}]
(init (assoc options :container (GenericContainer. image-name))))
(->> (GenericContainer. image-name)
(assoc options :container)
init))
(defn map-classpath-resource!
"Maps a resource in the classpath to the given container path. Should be called before starting the container!"