From e1a5689eed30dbac1e8a4c1e6351f880f43228aa Mon Sep 17 00:00:00 2001
From: Toby Crawley <toby@tcrawley.org>
Date: Mon, 9 Feb 2015 13:29:29 -0500
Subject: [PATCH] Remove more unreadable values from the request map before
 serializing.

---
 web/test-integration/immutant/web/integ_test.clj | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/web/test-integration/immutant/web/integ_test.clj b/web/test-integration/immutant/web/integ_test.clj
index 5de85d74..20d3b800 100644
--- a/web/test-integration/immutant/web/integ_test.clj
+++ b/web/test-integration/immutant/web/integ_test.clj
@@ -187,8 +187,12 @@
          (async/as-channel request
            :on-message (fn [ch _] (deliver @client-state
                                    (dissoc (async/originating-request ch)
+                                     :body
                                      :server-exchange
-                                     :body)))))))
+                                     :servlet
+                                     :servlet-context
+                                     :servlet-request
+                                     :servlet-response)))))))
   (with-open [socket (ws/connect (cdef-url "ws"))]
     (ws/send-msg socket "hello")
     (let [request (read-string (get-body (str (cdef-url) "state")))]
@@ -245,8 +249,12 @@
            :on-open (fn [ch]
                       (deliver @client-state
                         (dissoc (async/originating-request ch)
+                          :body
                           :server-exchange
-                          :body))
+                          :servlet
+                          :servlet-context
+                          :servlet-request
+                          :servlet-response))
                       (async/send! ch "done" {:close? true}))))))
   (is (= "done" (get-body (cdef-url))))
   (let [request (read-string (get-body (str (cdef-url) "state")))]