            (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"}))))
 
 

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

(t/deftest map-matcher-regex-key-not-found-t
  (t/is (= false
           (example-matcher three-data))))


      (t/is (= x
               ((p/map-matcher [(X x)] x)
                evt)))))
  ;; FIXME: Docu below the same, tests different
  (t/testing "as constant with global defpattern"
    (let [x   "x"
          evt {"X" x}]
