         all-prov3-colls [c1-p3 c2-p3 c3-p3 c4-p3]
         all-colls (concat all-prov1-colls all-prov2-colls all-prov3-colls)
         variable-name "variable1"
-        variable (vu/make-variable-concept {:Name variable-name})
-        {token :token} (vu/setup-update-acl
-                        (s/context) "PROV1" "user1" "update-group")
+        token (e/login (s/context) "user1")
         prov3-token (e/login (s/context) "prov3-user" [group1-concept-id])
-        {:keys [concept-id]} (vu/ingest-variable
-                              variable
-                              (vu/token-opts token))
+        {:keys [concept-id]} (vu/ingest-variable-with-attrs {:Name variable-name})
         assert-variable-associated (partial vu/assert-variable-associated-with-query
                                             prov3-token {:variable-name "variable1"})]
     (index/wait-until-indexed)

    (let [coll1 (d/ingest "PROV1" (dc/collection {:entry-title "ET1"}))
          coll2 (d/ingest "PROV1" (dc/collection {:entry-title "ET2"}))
          coll3 (d/ingest "PROV1" (dc/collection {:entry-title "ET3"}))
          {token :token} (vu/setup-update-acl
                        (s/context) "PROV1" "user1" "update-group")
          variable-name "variable1"
          assert-variable-associated (partial vu/assert-variable-associated-with-query
                                              token {:variable-name "variable1"})]
      (vu/create-variable token (vu/make-variable {:Name variable-name}))
      (index/wait-until-indexed)
      (vu/associate-by-concept-ids token variable-name [{:concept-id (:concept-id coll1)}
                                                        {:concept-id (:concept-id coll2)

(deftest dissociate-variable-failure-test
  (e/grant-registered-users (s/context) (e/coll-catalog-item-id "PROV1"))
  (let [variable-name "variable1"
        token (e/login (s/context) "user1")
        {:keys [concept-id revision-id]} (vu/ingest-variable-with-attrs {:Name variable-name})
        coll-concept-id (:concept-id (d/ingest "PROV1" (dc/collection)))]

    (testing "Dissociate variable using query sent with invalid content type"
