Possible approach to stub spies

espionajure.clj

(def stubs "Keep a track of all calls to stubs" (atom {}))

(defmacro stub
  "Replace function with a canned version that records its calls"
  [func canned & body]
  `(with-redefs [~func (fn stub[& args#]
                         (swap! (get @stubs ~func) conj args#)
                         ~canned)]
     (swap! stubs assoc ~func (atom []))
     (try
       ~@body
       (finally (swap! stubs dissoc ~func)))))

(defn stub-calls
  "Fetch stub calls for function"
  [func] @(get @stubs func))