                (println "Expected:" (pr-str (map :entry-title items)))
                (println "Actual:" (pr-str (map :name (:refs refs)))))
              result)
-           :polygon [20.16,-13.7,21.64,12.43,12.47,11.84,-22.57,7.06,20.16,-13.7]
-           [whole-world whole-world-poly normal-poly normal-brs polygon-with-holes normal-line normal-line-cart]
-
-           :box [23.59,-4,25.56,-15.47] [whole-world whole-world-poly normal-line-cart]
-           :point [17.73 2.21] [whole-world whole-world-poly normal-brs]
+           :polygon [20.16,-13.7, 21.64,12.43, 12.47,11.84, -22.57,7.06,20.16,-13.7]
+           [whole-world normal-poly normal-brs polygon-with-holes normal-line normal-line-cart
+            west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
+
+           :box [23.59,-4,25.56,-15.47] [whole-world normal-line-cart east-hemi-poly1]
+           :point [17.73 2.21] [whole-world normal-brs east-hemi-poly1]
            :line [-0.37,-14.07,4.75,1.27,25.13,-15.51]
-           [whole-world whole-world-poly polygon-with-holes polygon-with-holes-cart normal-line-cart normal-line
-            normal-poly-cart]))))
-
-
+           [whole-world polygon-with-holes polygon-with-holes-cart normal-line-cart normal-line
+            normal-poly-cart  west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]))))
+
+

               (println "Actual:" (->> found :refs (map :name) sort pr-str)))
             matches?)

           [-23.43 5 25.54 -6.31] [whole-world whole-world-poly polygon-with-holes normal-poly normal-brs]

           ;; inside hole in geodetic
           [4.03,1.51,4.62,0.92] [whole-world whole-world-poly]
           ;; corner points inside different holes
           [4.03,5.94,4.35,0.92] [whole-world whole-world-poly polygon-with-holes]

           ;; inside hole in cartesian polygon
           [-0.54,-13.7,3.37,-14.45] [whole-world whole-world-poly normal-poly-cart]
           ;; inside different holes in cartesian polygon
           [3.57,-14.38,3.84,-18.63] [whole-world whole-world-poly normal-poly-cart polygon-with-holes-cart]

           ;; just under wide north polygon
           [-1.82,46.56,5.25,44.04] [whole-world whole-world-poly]
           [-1.74,46.98,5.25,44.04] [whole-world whole-world-poly wide-north]
           [-1.74 47.05 5.27 44.04] [whole-world whole-world-poly wide-north]

           ;; vertical slice of earth
           [-10 90 10 -90] [whole-world whole-world-poly on-np on-sp wide-north wide-south polygon-with-holes
                            normal-poly normal-brs north-pole south-pole normal-point
                            very-wide-cart wide-north-cart wide-south-cart normal-poly-cart
                            polygon-with-holes-cart]

           ;; crosses am
           [166.11,53.04,-166.52,-19.14] [whole-world whole-world-poly across-am-poly across-am-br am-point very-wide-cart]

           ;; Matches geodetic line
           [17.67,-4,25.56,-6.94] [whole-world whole-world-poly normal-line]

           ;; Matches cartesian line
           [23.59,-4,25.56,-15.47] [whole-world whole-world-poly normal-line-cart]

           ;; whole world
           [-180 90 180 -90] [whole-world whole-world-poly touches-np touches-sp across-am-br normal-brs
                              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]

        normal-poly (make-coll :geodetic nil "normal-poly" (polygon -20 -10, -10 -10, -10 10, -20 10, -20 -10))

        ;; CMR-724 special case
        west-hemi-poly1 (make-coll :geodetic nil "west-hemi-poly1"
                                   (polygon -179.9999 0.0, -179.9999 -89.9999, 0.0 -89.9999,
                                            0.0 0.0, 0.0 89.9999, -179.9999 89.9999, -179.9999 0.0))
        west-hemi-poly2 (make-coll :geodetic nil "west-hemi-poly2"
                                   (polygon -179.9999 -89.9999, 0.0 -89.9999, 0.0 89.9999,
                                            -179.9999 89.9999, -179.9999 -89.9999))

        east-hemi-poly1 (make-coll :geodetic nil "east-hemi-poly1"
                                   (polygon 0.0001 -89.9999, 180 -89.9999, 180 89.9999,
                                            0.0001 89.9999, 0.0001 -89.9999))

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