             {:keys [status results]} response]
         (is (= [200 coll-atom] [status results])))
 
-      (let [coll-atom (da/collections->expected-atom [coll1 coll2 coll3 coll4 coll5] "collections.atom")
+      (let [coll-atom (da/collections->expected-atom [coll1 coll2 coll3 coll4 coll5 coll6 coll7
+                                                      coll8] "collections.atom")
             response (search/find-concepts-atom :collection {})
             {:keys [status results]} response]
         (is (= [200 coll-atom] [status results])))

            {:keys [status results]} response]
        (is (= [200 coll-json] [status results])))

      (let [coll-json (da/collections->expected-atom [coll1 coll2 coll3 coll4 coll5] "collections.json")
            response (search/find-concepts-json :collection {})
            {:keys [status results]} response]
        (is (= [200 coll-json] [status results])))

           [-180 90 0 -90] [g2]))))

(deftest search-collection-various-formats
  (let [ru1 (dc/related-url "GET DATA" "application/json" "http://example.com")
        ru2 (dc/related-url "GET DATA" "text/xml" "http://example2.com")
        ru3 (dc/related-url "GET RELATED VISUALIZATION" "application/xml" "http://example.com/browse")
        op1 {:swath-width 1450.0
             :period 98.88
