            (example-or-matcher one-data)))
   (t/is (= ["a" "c" 42 23]
            (example-or-matcher two-data)))
-  ;; FIXME: this is not an example-or-matcher
-  (t/is (= false (example-matcher {:kind "none"}))))
-
+  (t/is (= false (example-or-matcher {:kind "none"}))))
 
 (p/defpattern one-guard
   [(:kind #"one")

                           [a c C Z])
            two-data))))

 ;; FIXME: map-matcher-or-test - #3 --- same test?
(t/deftest map-matcher-regex-key-not-found-test
  (t/is (= false
           (example-matcher three-data))))

(p/defpattern one-or
  [(:kind #"one")
   (:x (:or "a" "b" "c" "x") :as x)

  (t/testing "with compare-fn"
    (let [evt {"X" "x"}]
      (t/is (= "x"
               ((p/map-matcher [(X (:compare-fn #(= % (get evt "X"))))] x)
                evt)))))
  (t/testing "as local constant"
