(test-group "=eps~"
  (test-matches "Equal within" '() (=eps~ 0.01 1) 1.001)
  (test-matches "Equal within, complex"
                '()
                (=eps~ 0.01 1+2i)
                1+2.001i)
  (test-not-match "Not equal within, complex"
                  (=eps~ 0.01 1+2i)
                  3+4i))

 (test-group "rect~"
   (test-matches "rect~, real" '() (rect~ 10 0) 10)
   (test-matches "rect~, complex" '() (rect~ 1 2) 1+2i)
   (test-not-match "rect~, real, no match"
                   (rect~ 1 1) 1)
   (test-not-match "rect~, complex, no match"
                   (rect~ 1 2) 1+1i))

(test-group "polar~"
  (test-matches "polar~, real" '() (polar~ 10 (=eps~ 0.01 0)) 10)
  (test-matches "polar~, complex"
                '()
                (polar~ (=eps~ 0.01 5)
                        (=eps~ 0.01 0.9273))
                3+4i))