Rest client driver with Clojure and Midje

clojure-rest-driver.clj

(ns logging.web-test
  (:use midje.sweet
        ring.mock.request
        my-thing.web)
  (:import [com.github.restdriver.clientdriver
            ClientDriverFactory
            ClientDriverRule
            RestClientDriver]))

(def driver (.. (ClientDriverFactory.) (createClientDriver 8123)))

(fact (app (body (request :post "/thing") (slurp "test/resources/valid.json")))
      => (contains {:status 201})

      (against-background
       (around :contents
               (do
                 (.addExpectation driver
                                  (RestClientDriver/onRequestTo "/resource")
                                  (RestClientDriver/giveEmptyResponse))
                 ?form
                 (try (.verify driver) (catch Exception e (fact e => nil)))))))