         (is (= [(format "Concept with concept-id [%s] could not be found."
                         (:concept-id del-var))]
                errors))))
-    (testing "retrieval by variable concept-id returns the latest revision."
-      (let [response (search/retrieve-concept
-                       (:concept-id var1-v1)
-                       nil
-                       {:accept mt/any
-                        :headers {transmit-config/token-header user1-token}})]
-        (is (= var1-name
-               (:Name (json/parse-string (:body response) true))))))
     (let [var1-name-new "variable1-new"
           var1-v2 (variable/ingest-variable-with-attrs
                    {:Name var1-name-new

        (is (= 2
               (inc (:revision-id var1-v1))
               (:revision-id var1-v2))))
      (testing (str "retrieval by variable concept-id and revision-id returns "
                    "the specified variable")
        (let [response-v1 (search/retrieve-concept
                           (:concept-id var1-v1)
                           1
                           {:accept mt/any
                            :headers {transmit-config/token-header user1-token}})
              response-v2 (search/retrieve-concept
                           (:concept-id var1-v1)
                           2
                           {:accept mt/any
                            :headers {transmit-config/token-header user1-token}})]
          (is (= var1-name
                 (:Name (json/parse-string (:body response-v1) true))))
          (is (= var1-name-new
                 (:Name (json/parse-string (:body response-v2) true)))))))
    (testing "retrieval by variable concept-id and incorrect revision-id returns error"
      (let [no-rev 10000
            {:keys [status errors]} (search/get-search-failure-xml-data

;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(deftest retrieve-variable-by-concept-id-any-accept-header
  (let [var1-name "variable1"
        var1-v1 (variable/ingest-variable-with-attrs {:Name var1-name})
        del-var (variable/ingest-variable-with-attrs {:Name "deleted-variable"})
