   (let [;; Lines
         normal-line (make-coll :geodetic "normal-line"
                                (l/ords->line-string :geodetic 22.681 -8.839, 18.309 -11.426, 22.705 -6.557))
+        along-am-line (make-coll :geodetic "along-am-line"
+                                 (l/ords->line-string :geodetic -180 0 -180 85))
         normal-line-cart (make-coll :cartesian "normal-line-cart"
                                     (l/ords->line-string :cartesian 16.439 -13.463,  31.904 -13.607, 31.958 -10.401))
 

                              wide-north wide-south across-am-poly on-sp on-np normal-poly
                              polygon-with-holes north-pole south-pole normal-point am-point
                              very-wide-cart very-tall-cart wide-north-cart wide-south-cart
                              normal-poly-cart polygon-with-holes-cart normal-line normal-line-cart]))

    (testing "polygon searches"
      (are [ords items]


           ;; Across antimeridian
           [-163.9,49.6,171.51,53.82,166.96,-11.32,-168.36,-14.86,-163.9,49.6]
           [whole-world across-am-poly across-am-br am-point very-wide-cart along-am-line]

           [-2.212 -12.44, 0.103 -15.911, 2.185 -11.161 -2.212 -12.44]
           [whole-world normal-poly-cart polygon-with-holes-cart]
