 ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(deftest retrieve-variable-by-concept-id
+(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"})

                             "does not exist.")
                        (:concept-id var1-v1)
                        no-rev)]
               errors))))))

        (is (= 2
               (inc (:revision-id var1-v1))
               (:revision-id var1-v2))))
      (let [response (search/retrieve-concept
                     (:concept-id var1-v1)
                     nil
                     {:accept mt/any
                      :headers {transmit-config/token-header user1-token}})
            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}})]
          (testing "retrieval by variable concept-id returns the latest revision."
            (is (= var1-name-new
                   (:Name (json/parse-string (:body response) true)))))
          (testing (str "retrieval by variable concept-id and revision-id returns "
                    "the specified variable")
            (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
