   {:sit-extra sit-extra
    :tb-extra tb-extra})
 
-(let [[uat-extra ptest-extra _] (clojure.data/diff uat-holdings ptest-holdings)]
+(get-in sit-holdings ["EDF_OPS" "C1000000261-EDF_OPS"])
+(get-in testbed-holdings ["EDF_OPS" "C1000000261-EDF_OPS"])
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; UAT
+
+(def ptest-holdings
+  (->> (decode (slurp "ptest_holdings.json") true)
+       (map #(update-in % [:granule_count] (fn [v] (Long. v))))
+       (map (fn [{:keys [dataset_id echo_collection_id granule_count provider_id]}]
+              {:granule-count granule_count
+               :provider-id provider_id
+               :entry-title dataset_id
+               :concept-id echo_collection_id}))
+       holdings->nested-map))
+
+(def uat-mdb-holdings
+  (holdings->nested-map (decode (slurp "uat_mdb_holdings.json") true)))
+
+(def uat-search-holdings
+  (holdings->nested-map (decode (slurp "uat_holdings.json") true)))
+
+
+
+(let [[uat-extra ptest-extra _] (clojure.data/diff
+                                  uat-mdb-holdings
+                                  (remove-zero-collections ptest-holdings))]
   {:uat-extra uat-extra
    :ptest-extra ptest-extra})
 
-(get-in sit-holdings ["EDF_OPS" "C1000000261-EDF_OPS"])
-(get-in testbed-holdings ["EDF_OPS" "C1000000261-EDF_OPS"])
+(let [[uat-extra ptest-extra _] (clojure.data/diff
+                                  uat-mdb-holdings
+                                  (remove-zero-collections uat-search-holdings))]
+  {:uat-mdb-extra uat-extra
+   :uat-search-extra ptest-extra})
 
-(get-in sit-holdings ["EDF_OPS" "C1000000104-EDF_OPS"])
-(get-in testbed-holdings ["EDF_OPS" "C1000000104-EDF_OPS"])
+(let [[uat-extra ptest-extra _] (clojure.data/diff
+                                  uat-mdb-holdings
+                                  (remove-zero-collections ptest-holdings))]
+  (set (concat (mapcat (comp keys second) uat-extra)
+               (mapcat (comp keys second) ptest-extra))))
+
+
+(get-in uat-holdings   ["ECHO10_PT" "C40624-ECHO10_PT"])
+(get-in ptest-holdings ["ECHO10_PT" "C40624-ECHO10_PT"])
 
 
 

(def sit-holdings
  (holdings->nested-map (decode (slurp "sit_holdings.json") true)))

(def uat-holdings
  (holdings->nested-map (decode (slurp "uat_mdb_holdings.json") true)))

(holdings-map->total sit-holdings)
(holdings-map->total testbed-holdings)


                  [_ num-granules] concept-id-map]
              num-granules)))

(defn remove-zero-collections
  "Removes collections from the nested map that have counts of 0"
  [nested-map]
  (reduce (fn [holdings provider-id]
            (update-in holdings [provider-id] #(into {} (filter (complement (comp zero? second)) %))))
          nested-map
          (keys nested-map)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; SIT


(def testbed-holdings
  (->> (decode (slurp "testbed_holdings.json") true)
       (map #(update-in % [:granule_count] (fn [v] (Long. v))))
       (map (fn [{:keys [dataset_id echo_collection_id granule_count provider_id]}]
              {:granule-count granule_count
