 
 (comment
   ;; Translate and validate a specific collection by concept-id
-  (def record (get-collection "C1214311756-AU_AADC"))
+  (def record (get-collection "C1214604828-SCIOPS"))
   (translate-and-validation-collection record)
   (translate-record-to-umm record)
   (:metadata-format record)

        (umm/validate-xml :collection metadata-format metadata)
        (json-schema/validate-umm-json (umm-json/umm->json (:collection record)) :collection)))))


(defn- get-collection-validation-errors
  "Collect the following collection validations:

    (let [collections (get-collections validation-search-page-size page-num)
          error-results (remove nil? (map translate-and-validation-collection collections))
          all-results (conj results error-results)]
      (println "Processed Page " page-num " " (count error-results) " errors")
      (if (>= (count collections) validation-search-page-size)
        (recur (+ page-num 1) all-results)
        all-results))))
