Example to reproduce thread leak in ring-core (when parsing multipart uploads)

test.clj

(ns rtest.core
  (:gen-class)
  (:use [ring.middleware params multipart-params keyword-params]
        ring.adapter.jetty
        )
  
  )

(defn handler [request]
  {:status 200
   :headers {"Content-Type" "text/plain"}
   :body (str "File upload: "
              (:multipart-params request))
   })



(def app
  (-> handler
      wrap-params
      wrap-keyword-params
      wrap-multipart-params))



(defn -main [& args]
  (run-jetty app {:port 3000}))