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

#9 - Use {:keys [...]} for map destructuring

Browse source
This commit is contained in:
Tim Zöller 2020-06-13 14:49:07 +02:00
parent 9511f82dfe
commit a5a78008ba
1 changed files with 6 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
src/clj_test_containers/core.clj
View file

@ -7,11 +7,7 @@
(defn create
"Sets the properties for a testcontainer instance"
[{image-name :image-name
exposed-ports :exposed-ports
env-vars :env-vars
command :command}]
[{:keys [image-name exposed-ports env-vars command]}]
(let [container (org.testcontainers.containers.GenericContainer. image-name)]
(.setExposedPorts container (map int exposed-ports))
@ -19,7 +15,7 @@
(if (some? env-vars)
(doseq [pair env-vars]
(.addEnv container (first pair) (second pair))))
(if (some? command)
(.setCommand container command))
@ -32,10 +28,7 @@
(defn map-classpath-resource!
"Maps a resource in the classpath to the given container path. Should be called before starting the container!"
[container-config
{resource-path :resource-path
container-path :container-path
mode :mode}]
{:keys [resource-path container-path mode]}]
(assoc container-config :container (.withClasspathResourceMapping (:container container-config)
resource-path
container-path
@ -44,10 +37,7 @@
(defn bind-filesystem!
"Binds a source from the filesystem to the given container path. Should be called before starting the container!"
[container-config
{host-path :host-path
container-path :container-path
mode :mode}]
{:keys [host-path container-path mode]}]
(assoc container-config :container (.withFileSystemBind (:container container-config)
host-path
container-path
@ -55,10 +45,8 @@
(defn copy-file-to-container!
"Copies a file into the running container"
[container-conf {container-path :container-path
path :path
type :type}]
[container-conf
{:keys [container-path path type]}]
(let [mountable-file (cond
(= :classpath-resource type) (org.testcontainers.utility.MountableFile/forClasspathResource path)
(= :host-path type) (org.testcontainers.utility.MountableFile/forHostPath path)