                 :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)


(deftest servlet-test
  (testing "request"
    (let [req  {:server-port    8080
                :server-name    "foobar"
                :remote-addr    "127.0.0.1"
                :uri            "/foo"

                            :content-type   "text/plain"
                            :content-length 10
                            :character-encoding "UTF-8"
                            :body           body)
                          {:status 200, :headers {}}))]
      (doto svlt
        (.init (servlet-config))
