       :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))))
+(defnpd response-data
+  [method path [params nil] [auth nil]]
+  (data (res method path params auth)))
 
 (defmacro setup-db-background
   []

                    :current :test})
    request))

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

(defn res
  "We give it a dummy uri because we're using this with controllers
and assume that routing has already taken place"
  ([method path]
     (res method path nil nil))
  ([method path params]
     (res method path params nil))
  ([method path params auth]
     (let [params (json/write-str params)]
       (server/app (req method path params auth)))))

(defn data
  [response]

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

(defn auth
