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

                           :q2 "b"}}))

;;;; ___________________________________________________________________________

;;;; TODO

;;;; From MPS:

(def mps-middlewares
  [#(rmj/wrap-json-body %
                        {:keywords? true
                         :bigdecimals? true})
   rmj/wrap-json-response
   rmp/wrap-params
   rmk/wrap-keyword-params])

;;;; From minimal-clojure-service

(defn minimal-clojure-service-handler
  [routes]
  (cm/wrap-canonical-redirect
   (-> routes
       (cc/wrap-routes rmj/wrap-json-params)
       (cc/wrap-routes rmj/wrap-json-response)
       (cc/wrap-routes rmp/wrap-params)
       (cc/wrap-routes rmk/wrap-keyword-params))))

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

;;;; ---- Single wrappings ----

(facts "Single wrappings"

  (fact "`rmp/wrap-params`"
    ((-> identity-handler
         rmp/wrap-params)
