 (def
   ^{:doc
     "passes if the value is nil
+
     (matcha/run-match matcha/nil? nil) ; => passes
-    (matcha/run-match matcha/nil? 1) ; => fails"}
+    (matcha/run-match matcha/nil? 1)   ; => fails"}
   nil?
   (make-record-matcher
     core/nil?

    "passes if the value is a ratio

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

      (str "vals: " (string/join ", " (vals m)) " (was " (pr-str m) ")"))))

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

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