              matches?)
 
            ;; normal two points
-           [-24.28,-12.76,10,10] [whole-world west-hemi-poly1 west-hemi-poly2 east-hemi-poly1
-                                  polygon-with-holes normal-poly normal-brs]
+           [-24.28,-12.76,10,10] [whole-world polygon-with-holes normal-poly normal-brs]
 
            ;; normal multiple points
            [-0.37,-14.07,4.75,1.27,25.13,-15.51] [whole-world polygon-with-holes
-                                                  west-hemi-poly1 west-hemi-poly2 east-hemi-poly1
                                                   polygon-with-holes-cart normal-line-cart
                                                   normal-line normal-poly-cart]
            ;; across antimeridian
-           [-167.85,-9.08,171.69,43.24] [whole-world across-am-br across-am-poly very-wide-cart
-                                         west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
+           [-167.85,-9.08,171.69,43.24] [whole-world across-am-br across-am-poly very-wide-cart]
 
            ;; across north pole
-           [0 85, 180 85] [whole-world north-pole on-np touches-np
-                           west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
+           [0 85, 180 85] [whole-world north-pole on-np touches-np]
 
            ;; across north pole where cartesian polygon touches it
-           [-155 85, 25 85] [whole-world north-pole on-np very-tall-cart
-                             west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
+           [-155 85, 25 85] [whole-world north-pole on-np very-tall-cart]
 
            ;; across south pole
-           [0 -85, 180 -85] [whole-world south-pole on-sp
-                             west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
+           [0 -85, 180 -85] [whole-world south-pole on-sp]
 
            ;; across north pole where cartesian polygon touches it
-           [-155 -85, 25 -85] [whole-world south-pole on-sp touches-sp very-tall-cart
-                               west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]))
+           [-155 -85, 25 -85] [whole-world south-pole on-sp touches-sp very-tall-cart]))
 
     (testing "point searches"
       (are [lon_lat items]

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

           [-23.43 5 25.54 -6.31] [whole-world polygon-with-holes normal-poly normal-brs
                                   west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]

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

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

           ;; just under wide north polygon
           [-1.82,46.56,5.25,44.04] [whole-world west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
           [-1.74,46.98,5.25,44.04] [whole-world wide-north west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]
           [-1.74 47.05 5.27 44.04] [whole-world wide-north west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]

           ;; vertical slice of earth
           [-10 90 10 -90] [whole-world 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 west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]

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

           ;; Matches geodetic line
           [17.67,-4,25.56,-6.94] [whole-world normal-line east-hemi-poly1]

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

           ;; whole world
           [-180 90 180 -90] [whole-world 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
                              west-hemi-poly1 west-hemi-poly2 east-hemi-poly1]))

    (testing "polygon searches"
      (are [ords 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 normal-poly normal-brs polygon-with-holes normal-line normal-line-cart]

           :box [23.59,-4,25.56,-15.47] [whole-world normal-line-cart]
           :point [17.73 2.21] [whole-world normal-brs]
           :line [-0.37,-14.07,4.75,1.27,25.13,-15.51]
           [whole-world polygon-with-holes polygon-with-holes-cart normal-line-cart normal-line
            normal-poly-cart]))))


