Add async multipart limit tests

Author: weavejester

ring-core/test/ring/middleware/test/multipart_params.clj

@@ -188,8 +188,10 @@
                        "Content-Type: text/plain\r\n\r\n"
                        "foobar\r\n"
                        "--XXXX--")
-        headers {"content-type" (str "multipart/form-data; boundary=XXXX")}
-        handler (constantly {:status 200, :headers {}, :body "OK"})]
+        headers       {"content-type" (str "multipart/form-data; boundary=XXXX")}
+        handler       (constantly {:status 200, :headers {}, :body "OK"})
+        handler-async (fn [_ respond _]
+                        (respond {:status 200, :headers {}, :body "OK"}))]
     (is (thrown? org.apache.commons.fileupload.FileUploadBase$FileUploadIOException
                  (multipart-params-request
                   {:headers headers, :body (string-input-stream form-body)}
@@ -209,4 +211,20 @@
       (is (= 413 (:status response))))
     (let [response ((wrap-multipart-params handler {:max-file-count 2})
                     {:headers headers, :body (string-input-stream form-body)})]
-      (is (= 200 (:status response))))))
+      (is (= 200 (:status response))))
+    (let [response (promise)
+          error    (promise)]
+      ((wrap-multipart-params handler-async {:max-file-size 6})
+       {:headers headers, :body (string-input-stream form-body)}
+       response
+       error)
+      (is (= 413 (:status @response)))
+      (is (not (realized? error))))
+    (let [response (promise)
+          error    (promise)]
+      ((wrap-multipart-params handler-async {:max-file-count 1})
+       {:headers headers, :body (string-input-stream form-body)}
+       response
+       error)
+      (is (= 413 (:status @response)))
+      (is (not (realized? error))))))