Clojure.test hacks.

gistfile1.clj

(defmacro rcf
  "Reports from the calling stack frame, useful for utility
assertion functions to workaround clojure.test's reporting of file-and-line info."
  [& expr]
  `(let [reports# (atom [])
         out# (with-redefs [clojure.test/do-report (fn [m#] (swap! reports# conj m#))]
                ~@expr)
         final# @reports#]
     (doseq [m# final#]
       (clojure.test/do-report m#))))


(defn- test-inner
  []
  (is (= true false)))

(clojure.test/deftest test-rcf
  []
  ;; rcf will report file-and-line from here instead of test-inner
  (rcf (test-inner)))