         (index/wait-until-indexed)
         (is (= [422 ["Concept-id [C1111-PROV1] does not match the existing concept-id [C1000-PROV1] for native-id [Atlantic-1]"]]
                [status errors]))))))
-(comment
-  (cmr.metadata-db.int-test.utility/find-concepts :collection
-                                                  {:provider-id "PROV1"}))
 
 ;; Verify that the accept header works
 (deftest collection-ingest-accept-header-response-test

    (is (= ["Unknown UMM JSON schema version: \"9000.1\""]
           (:errors response)))))

(comment
  ((ingest/reset-fixture {"provguid1" "PROV1" "provguid2" "PROV2"}) println)
  (let [json (umm-spec/generate-metadata exc/example-collection-record "application/vnd.nasa.cmr.umm+json;version=1.0")
        coll-map {:provider-id  "PROV1"
                  :native-id    "umm_json_coll_V1"
                  :concept-type :collection
                  :format       "application/vnd.nasa.cmr.umm+json;version=9000.1"
                  :metadata     json}
        response (ingest/ingest-concept coll-map {:accept-format :json})]
    (is (= 200 (:status response)))
    (println "response =" response))
  )

;; Verify ingest of collection with string larger than 80 characters for project(campaign) long name is successful (CMR-1361)
(deftest project-long-name-can-be-upto-1024-characters
  (let [project (dc/project "p1" (str "A long name longer than eighty characters should not result"

      (is (= 5 delete-revision-id))
      (is (mdb/concept-exists-in-mdb? (:concept-id ingest-result) 5)))))

(deftest delete-collection-test
  (let [coll1 (d/ingest "PROV1" (dc/collection))
        gran1 (d/ingest "PROV1" (dg/granule coll1))
