                               :body
                               slurp)
                   actual (json/parse-string actual true)]
-              (compare-structured-response (map unkeywordize-values actual)
-                                           expected
-                                           version)))))
+              (is (= (map unkeywordize-values actual) expected))))))
 
       (testing "unextracted field with alias"
         (doseq [[order expected] [["ASC" [f1 f2 f3 f4 f5]]

                                       {:order_by
                                                 (vector-param method [{"field" "environment" "order" env-order}
                                                                      {"field" "name" "order" name-order}])})]
            (compare-structured-response (map unkeywordize-values (json/parse-string (slurp (:body actual)) true))
                                         expected
                                         version)))))))

(deftest-http-app fact-environment-queries
  [[_version endpoint] facts-endpoints

                              :body
                              slurp)
                  actual (json/parse-string actual true)]
              (is (= (map unkeywordize-values actual) expected)))))))))

(deftest-http-app facts-environment-paging
  [[_version endpoint] facts-endpoints
