Print body for non-200 responses

immutant · Aug 10, 2015 · f4cae70 · f4cae70
1 parent b85c7c7
commit f4cae70
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/web/dev-resources/testing/web.clj b/web/dev-resources/testing/web.clj
@@ -50,8 +50,10 @@
   (with-open [client (http/create-client)]
     (let [response (get-response url :headers headers :cookies cookies)]
       (if (= 200 (:status response))
-          (:body response)
-          (:status response)))))
+        (:body response)
+        (do
+          (if-let [b (:body response)] (println b))
+          (:status response))))))
 
 (defn event-source
   "Returns an SSE EventSource client"