             [gratefulplace.server :as server]
             [clojure.data.json :as json])
   (:use midje.sweet
+        gratefulplace.utils
         [ring.mock.request :only [request header content-type]]))
 
 (defn auth

      :body
      json/read-str))

(defn response-data
  ([method path]
     (response-data method path nil nil))
  ([method path params]
     (response-data method path params nil))
  ([method path params auth]
     (data (res method path params auth))))

(defmacro setup-db-background
  []

                    :current :test})
    request))

(defnpd req
  [method path [params nil] [auth nil]]
  (-> (request method path params)
      (content-type "application/json")
      (authenticated auth)))

(defnpd res
  [method path [params nil] [auth nil]]
  (let [params (json/write-str params)]
       (server/app (req method path params auth))))

(defn data
  [response]
