clojure-mode-test-from-implimentation.el

(defun my-run-tests ()
  (interactive)
  (let ((test-buffer (find-buffer-visiting (format "%stest/%s-test.clj"
                                                   (locate-dominating-file buffer-file-name "src/")
                                                   (file-name-nondirectory (file-name-sans-extension buffer-file-name))))))
    (save-buffer)
    (with-current-buffer test-buffer
      (clojure-test-run-tests))
    (sit 1)
    (if
        (string-match "0 failures" (current-message))
        (message (current-message))
      (switch-to-buffer test-buffer))))