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

                                        "name" "production"}
             initial-response (get-env-classes "production")
             initial-etag (response-etag initial-response)
             initial-etag-with-gzip-suffix (if (.endsWith initial-etag "--gzip")
                                             initial-etag
                                             (str initial-etag "--gzip"))
             initial-etag-without-gzip-suffix (str/replace initial-etag
                                                           #"--gzip$"
                                                           "")]
         (testing "initial fetch of environment_classes info is good"
           (is (= 200 (:status initial-response))
               (str

                   (str
                    "unexpected status code for test response after code change "
                    "but 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")
