                    (str
                     "unexpected status code for test response after code change "
                     "but before flush"))
-               (is (= test-etag-initial (response-etag
-                                         test-response-before-flush))
+               (is (= test-etag-initial-without-gzip-suffix (response-etag
+                                                              test-response-before-flush))
                    "unexpected etag change when no test environment change")
                (is (empty? (:body test-response-before-flush))
                    "unexpected body for test response")

                                                    "test")
                 production-response-initial (get-env-classes "production")
                 production-etag-initial (response-etag production-response-initial)
                 test-response-initial (get-env-classes "test")
                 test-etag-initial (response-etag test-response-initial)]
             (is (= 200 (:status production-response-initial))
                 (str
                  "unexpected status code for initial production response"

(defn response-etag
  [request]
  (get-in request [:headers "etag"]))

(defn etag-with-gzip-suffix
  [etag]
  (if (.endsWith etag "--gzip")
    etag
    (str etag "--gzip")))

(defn etag-without-gzip-suffix
  [etag]
  (str/replace etag #"--gzip$" ""))

(defn response->class-info-map
  [response]
