 (defn validate-gzip-encoding-when-gzip-requested
   [body port]
   ;; The client/get function asks for compression by default
-  (let [resp (http-client/get (format "http://localhost:%d/" port))]
+  (let [resp (http-sync/get (format "http://localhost:%d/" port))]
     (is (= (slurp (resp :body)) body))
     (is (= (get-in resp [:orig-content-encoding]) "gzip")
         (format "Expected gzipped response, got this response: %s"

            "Unexpected initial capacity for queue")
        (is (= queue-min-size (.getMaxCapacity queue))
            "Unexpected max capacity for queue")))))

(defn validate-no-gzip-encoding-when-gzip-not-requested
  [body port]
  ;; The client/get function asks for compression by default
  (let [resp (http-sync/get (format "http://localhost:%d/" port)
                              {:decompress-body false})]
    (is (= (slurp (resp :body)) body))
    ;; We should not receive a content-encoding header in the
