clj-http-client/test/puppetlabs/http/client/test_common.clj

(ns puppetlabs.http.client.test-common
  (:require [ring.middleware.params :as ring-params]
            [puppetlabs.trapperkeeper.core :as tk]))

(defn query-params-test
  [req]
  {:status 200
   :body (str (:query-params req))})

(def app-wrapped
  (ring-params/wrap-params query-params-test))

(tk/defservice test-params-web-service
  [[:WebserverService add-ring-handler]]
  (init [this context]
        (add-ring-handler app-wrapped "/params")
        context))

(def queryparams {"foo" "bar"
                  "baz" "lux"})

(def query-options {:method       :get
                    :url          "http://localhost:8080/params/"
                    :query-params queryparams
                    :as           :text})