integrant with-system macro

with-system.clj

(ns test-utils
  (:require [integrant.core :as ig]))

(defmacro with-system [bindings & bodies]
  `(let [~(first bindings) (ig/init ~(second bindings))
         ~@(drop 2 bindings)]
     (try
       (do
         ~@bodies)
        (finally
          (ig/halt! ~(first bindings))))))

(comment
 (with-system [sys {:some :config}]
   (testing "..."
     )
   (testing "..."
     )
   (testing "..."
     )
   )
  
  (with-system [sys {:some :config}
                {:keys [:db/conn :http/server]} sys]
   (testing "..."
     )
   (testing "..."
     )
   (testing "..."
     )
   )
 )