       (is (expected-header-link? body)))))
 
 (deftest eosdis-level-links
+  (Thread/sleep 1000)
   (let [response (get-response "site/collections/directory/eosdis")
         body (:body response)]
     (testing "check eosdis level status and links"

      (string/includes? body (format "%s/%s" url "C1200000014-PROV1.html"))
      (string/includes? body "Collection Item 1"))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Functions for creating testing data
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

         c1-p2 c2-p2 c3-p2] (for [p ["PROV1" "PROV2"]
                                  n (range 1 4)]
                              (d/ingest-umm-spec-collection
                               p
                               (assoc exp-conv/example-collection-record
                                      :ShortName (str "s" n)
                                      :EntryTitle (str "Collection Item " n))
                               {:format :umm-json
                                :accept-format :json}))
         [c1-p3 c2-p3 c3-p3] (for [n (range 4 7)]
                               (d/ingest-umm-spec-collection
                                "PROV3"
                                (assoc exp-conv/example-collection-record
                                       :ShortName (str "s" n)
                                       :EntryTitle (str "Collection Item " n)
                                       :DOI (cm/map->DoiType
                                             {:DOI (str "doi" n)
                                              :Authority (str "auth" n)}))
                                {:format :umm-json
                                 :accept-format :json}))
         ;; Let's create another collection that will put the total over the
         ;; default of 10 values so that we can ensure the :unlimited option
         ;; is being used in the directory page data.
         over-ten-colls (for [n (range 20 41)]
                          (d/ingest-umm-spec-collection
                           "PROV2"
                           (assoc exp-conv/example-collection-record
                                  :ShortName (str "s" n)
                                  :EntryTitle (str "Collection Item " n))
                           {:format :umm-json
                            :accept-format :json}))]
    ;; Wait until collections are indexed so tags can be associated with them
    (index/wait-until-indexed)
    ;; Use the following to generate html links that will be matched in tests
