Clojurians Log v2

Trying to write defmacro will-be , like clojure.test/is, that times out after multiple attempts, and produces nice failures like clojure.test/is (comparing actual & expected). I have the below attempt, but it’s not a macro and doesn’t produce nice errors. Any ideas, or does this function/macro already exist?

(defn will-be
  [f timeout-ms sleep-ms]
  (let [start (System/currentTimeMillis)]
    (while (not (f))
           (when (< (+ start timeout-ms) (System/currentTimeMillis))
                 (throw (ex-info "will-be timed out" {})))
           (Thread/sleep sleep-ms))))

;; for example, (will-be #(= "hello world" @server-response) 1000 100)