(require 'clojure.test)
               (defmethod clojure.test/report :pass [data]
                 (let [data (merge
                              data
                              ;; this only seems terrible because it is
                              (#'clojure.test/file-and-line (new java.lang.Throwable) 3))]
                   (clojure.test/with-test-out
                     (clojure.test/inc-report-counter :pass)
                     (println "\nPASS in" (clojure.test/testing-vars-str data))
                     (when (seq clojure.test/*testing-contexts*)
                       (println (clojure.test/testing-contexts-str)))
                     (when-let [m (:message data)]
                       (println "  " m)))))