 ;;;; ---- Single wrappings ----
 
 (facts "Single wrappings"
-  
+
   (fact "`rmp/wrap-params`"
     ((-> identity-handler
          rmp/wrap-params)

                             "q2" "b"}
              :params       {"q1" "a"
                             "q2" "b"}}))
  
  (fact "`rmj/wrap-json-params`"
    ((-> identity-handler
         rmj/wrap-json-params)

                           :q2 "b"}}))

;;;; ___________________________________________________________________________
;;;; ---- `rmj/wrap-json-params` then `rmj/wrap-json-body` ----

(fact "`rmj/wrap-json-params` then `rmj/wrap-json-body` is no good"
  ((-> identity-handler
       rmj/wrap-json-body
       rmj/wrap-json-params)
   (make-my-request))
  => (just {:headers      {"content-type" "application/json; charset=utf-8"}
            :query-string "q1=a&q2=b"
            :body         nil ; Not what I'd want
            :json-params  {"user" "Fred"}
            :params       {"user" "Fred"}}))

;;;; ___________________________________________________________________________

;;;; TODO Still need to revisit the following.

;;;; ___________________________________________________________________________
;;;; ---- rmj/wrap-json-response ----
