 
 (deftest temporal-sorting-test
   (let [make-coll (fn [n provider begin end]
-                    (d/ingest-umm-spec-collection provider (data-umm-c/collection n {:TemporalExtents [(data-umm-cmn/temporal-extent {
-                                                :beginning-date-time (d/make-datetime begin)
-                                                :ending-date-time (d/make-datetime end)
-                                                :ends-at-present? true})]})))
+                    (d/ingest-umm-spec-collection
+                     provider (data-umm-c/collection
+                     n
+                     {:TemporalExtents [(data-umm-cmn/temporal-extent {
+                      :beginning-date-time (d/make-datetime begin)
+                      :ending-date-time (d/make-datetime end)
+                      :ends-at-present? true})]})))
         make-gran (fn [coll begin end]
                     (d/ingest (:provider-id coll)
-                              (dg/granule-with-umm-spec-collection coll (:concept-id coll) {:beginning-date-time (d/make-datetime begin)
-                                                :ending-date-time (d/make-datetime end)})))
+                              (dg/granule-with-umm-spec-collection
+                               coll
+                               (:concept-id coll)
+                               {:beginning-date-time (d/make-datetime begin)
+                                :ending-date-time (d/make-datetime end)})))
         c1 (make-coll 1 "PROV1" 1 200)
         c2 (make-coll 2 "PROV2" 1 200)
 

                                                     ["c10" "c41" "c20" "c51" "c30" "c40" "c50"])})]})]}))
        make-gran (fn [& sensors]
                    (d/ingest "PROV1"
                              (dg/granule-with-umm-spec-collection coll (:concept-id coll)
                                {:platform-refs
                                 [(dg/platform-ref
                                    {:short-name "platform"
                                     :instrument-refs [(dg/instrument-ref
                                                         {:short-name "instrument"
                                                          :sensor-refs (map #(dg/sensor-ref {:short-name %})
                                                                            sensors)})]})]})))
        g1 (make-gran "c10" "c41")
        g2 (make-gran "c20" "c51")
        g3 (make-gran "c30")


(deftest coll-identifier-sorting-test
  (let [make-gran (fn [provider entry-title short-name version]
                    (let [coll (d/ingest-umm-spec-collection provider
                                (data-umm-c/collection {:EntryTitle entry-title
                                                        :ShortName short-name
                                                        :Version version}))]
                      (d/ingest provider (dg/granule-with-umm-spec-collection coll (:concept-id coll) {}))))
        g1 (make-gran "PROV1" "et10" "SN45" "v10")
        g2 (make-gran "PROV1" "et20" "sn35" "v20")
