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


(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})]})))
        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)})))
        c1 (make-coll 1 "PROV1" 1 200)
        c2 (make-coll 2 "PROV2" 1 200)


  (let [coll (d/ingest-umm-spec-collection "PROV1" (data-umm-c/collection {}))
        make-gran (fn [granule-ur producer-gran-id]
                    (d/ingest "PROV1"
                              (dg/granule-with-umm-spec-collection
                               coll
                               (:concept-id coll)
                               {:granule-ur granule-ur
                                :producer-gran-id producer-gran-id})))
