Added ServletInputStream proxy to test request body

mmcgrana · fb057eac39af04e4ce9257e5959505bc30093688 · weavejester committed Aug 1, 2010 · Aug 1, 2010 · fb057ea
1 parent fdc7d0f
commit fb057eac39af04e4ce9257e5959505bc30093688
Unified Split

Showing with 4 additions and 3 deletions.

+4 −3 ring-servlet/test/ring/util/servlet_test.clj
@@ -39,7 +39,8 @@
 
 (deftest servlet-test
   (testing "request"
-    (let [req  {:server-port    8080
+    (let [body (proxy [javax.servlet.ServletInputStream] [])
+          req  {:server-port    8080
                 :server-name    "foobar"
                 :remote-addr    "127.0.0.1"
                 :uri            "/foo"
@@ -50,7 +51,7 @@
                 :content-type   "text/plain"
                 :content-length 10
                 :character-encoding "UTF-8"
-                :body           nil}
+                :body           body}
           resp (atom {})
           svlt (servlet (fn [r]
                           (are [k v] (= (r k) v)
@@ -65,7 +66,7 @@
                             :content-type   "text/plain"
                             :content-length 10
                             :character-encoding "UTF-8"
-                            :body           nil)
+                            :body           body)
                           {:status 200, :headers {}}))]
       (doto svlt
         (.init (servlet-config))