feat: slurp only when not string

Shows correct error in some test failure scenarios
CSCfi · Feb 8, 2019 · eba3fac · eba3fac
1 parent 308d998
commit eba3fac
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/test/clj/rems/test/api.clj b/test/clj/rems/test/api.clj
@@ -30,8 +30,10 @@
   (assert response)
   (assert (= 200 (:status response))
           (pr-str {:status (:status response)
-                   :body (when (:body response)
-                           (slurp (:body response)))}))
+                   :body (when-let [body (:body response)]
+                           (if (string? body)
+                             body
+                             (slurp body)))}))
   response)
 
 (defn response-is-unauthorized? [response]