     (ingest/reset)
     (ingest/create-provider "PROV1")
 
-    (let [coll (d/ingest "PROV1" (dc/collection {:spatial-coverage (dc/spatial :geodetic)}))]
+    (let [coll-geodetic (d/ingest "PROV1" (dc/collection {:spatial-coverage (dc/spatial :geodetic)}))
+          coll-cartesian (d/ingest "PROV1" (dc/collection {:spatial-coverage (dc/spatial :cartesian)}))]
       (doseq [shape shapes]
-        (d/ingest "PROV1" (dg/granule coll {:spatial-coverage (dg/spatial shape)}))))
+        (let [coll (if (= :cartesian (:coordinate-system shape))
+                     coll-cartesian
+                     coll-geodetic)]
+          (d/ingest "PROV1" (dg/granule coll {:spatial-coverage (dg/spatial shape)})))))
     (index/refresh-elastic-index)
 
     ;; Save the shapes for display

        normal-br2 (m/mbr -20 0 -10 -10)

        ;; Polygons
        wide-north (polygon -70 20, 70 20, 70 30, -70 30, -70 20)
        wide-south (polygon -70 -30, 70 -30, 70 -20, -70 -20, -70 -30)
        across-am-poly (polygon 170 35, -175 35, -170 45, 175 45, 170 35)
        on-np (polygon 45 85, 135 85, -135 85, -45 85, 45 85)
        on-sp (polygon -45 -85, -135 -85, 135 -85, 45 -85, -45 -85)
        normal-poly (polygon -20 -10, -10 -10, -10 10, -20 10, -20 -10)

        ;; polygon with holes
        outer (rr/ords->ring :geodetic -5.26,-2.59, 11.56,-2.77, 10.47,8.71, -5.86,8.63, -5.26,-2.59)

                                on-sp
                                normal-poly
                                polygon-with-holes
                                wide-north-cart
                                wide-south-cart
                                very-wide-cart
                                very-tall-cart
                                north-pole
                                south-pole
                                normal-point
