     "passes if the value is a function
 
     (matcha/run-match matcha/fn? #()) ; => passes
-    (matcha/run-match matcha/fn? 5) ; => fails"}
+    (matcha/run-match matcha/fn? 5)   ; => fails"}
   fn?
   (make-record-matcher
     core/fn?

    "passes if the value is a float

    (matcha/run-match matcha/float? (float 1.0)) ; => passes
    (matcha/run-match matcha/float? 5) ; => fails"}
  float?
  (make-record-matcher
    core/float?

        (str "a map not containing the key " (pr-str k) " (was " (pr-str m) ")")))))

(defn has-val
  "passes if the map received contains the given val

  (matcha/run-match (matcha/has-val 1) {:a 1}) ; => passes
  (matcha/run-match (matcha/has-val 1) {:a 2}) ; => fails"
  [v]
  (make-record-matcher
    (fn [m] (core/some #{v} (vals m)))
