       :body "Uploaded 'Fred'."})
 
 (fact "Wrapped handler with request whose body is JSON"
-  (app-002 (json->request "{\"user\":\"Fred\"}"))
+  (app-002 {:headers {"content-type" "application/json; charset=utf-8"}
+            :body (string->stream "{\"user\":\"Fred\"}")})
   => {:status 200
       :headers {}
       :body "Uploaded 'Fred'."})

            [ring.middleware.json :refer [wrap-json-body
                                          wrap-json-response]]
            [ring.util.response :refer [response]]))

;;;; ___________________________________________________________________________
;;;; ---- Request test helpers ----

   (-> s
       (.getBytes encoding)
       (java.io.ByteArrayInputStream.))))

;;;; ___________________________________________________________________________
;;;; ---- wrap-json-response ----
