Merge upstream PR#82 - with-network: Network test fixture function

testcontainers#82

Author: j1mr10rd4n

README.md

@@ -438,6 +438,25 @@ Creates a network. The optional map accepts config values for enabling ipv6 and
 (create-network)
 ```
 
+### with-network
+
+Create and bind a network to *network* and run `test-fn`. The network is removed after the function executes.
+
+#### Config parameters:
+
+`with-network` takes an optional map of options, equivalent to `create-network`.
+
+
+#### Example:
+
+```clojure
+;; Run tests within an ephemeral network
+(use-fixtures :once (tc/with-network {:ipv6? true}))
+
+(deftest test-network-loaded
+  (is (some? tc/*network*)))
+```
+
 ### perform-cleanup!
 
 Stops and removes all containers which were created in the JVM, including the REPL session you are in. This is helpful,

src/testcontainers_clj/core.clj

@@ -30,6 +30,8 @@
      BindMode/READ_WRITE
      BindMode/READ_ONLY)))
 
+(def ^:dynamic *network* nil)
+
 (defonce started-instances (atom #{}))
 
 (defmulti wait
@@ -408,6 +410,16 @@
       (.exec))
   instance)
 
+(defn with-network
+  ([] (with-network {}))
+  ([network-options]
+   (fn [test-fn]
+     (binding [*network* (create-network network-options)]
+       (try
+         (test-fn)
+         (finally
+           (remove-network! *network*)))))))
+
 (defn- stop-and-remove-container! [instance]
   (let [docker-client (DockerClientFactory/instance)]
     (-> docker-client