         (is (= gran-atom
                (:results response))))
 
-      (let [gran-atom (da/granules->expected-atom [gran1 gran2] [coll1 coll2] "granules.atom")
+      (let [gran-atom (da/granules->expected-atom [gran1 gran2 gran3] [coll1 coll2 coll3] "granules.atom")
             response (search/find-concepts-atom :granule {})]
         (is (= 200 (:status response)))
         (is (= gran-atom

        (is (= gran-json
               (:results response))))

      (let [gran-json (dj/granules->expected-json [gran1 gran2] [coll1 coll2] "granules.json")
            response (search/find-concepts-json :granule {})]
        (is (= 200 (:status response)))
        (is (= gran-json

                                                :spatial-coverage (dc/spatial {:gsr :geodetic})}))
        coll2 (d/ingest "PROV1" (dc/collection {:entry-title "Dataset2"
                                                :related-urls [ru4 ru5]}))
        coll3 (d/ingest "PROV1" (dc/collection {:entry-title "OrbitDataset"
                                                :spatial-coverage (dc/spatial {:gsr :orbit
                                                                               :orbit {:inclination-angle 98.0
                                                                                       :period 97.87
                                                                                       :swath-width 390.0
                                                                                       :start-circular-latitude -90.0
                                                                                       :number-of-orbits 1.0}})}))

        make-gran (fn [coll attribs]
                    (d/ingest "PROV1" (dg/granule coll attribs)))
