run-clojure-tests.el

(defun run-clojure-tests ()
  (save-buffer)
  (cond ((slime-connected-p)
         (save-window-excursion
           (unless (symbol-value 'clojure-test-mode)
             (find-file (replace-regexp-in-string "/src/" "/test/"
                         (replace-regexp-in-string "\\.clj$" "_test.clj"
                          (buffer-file-name)))))
           (save-window-excursion
             (with-current-buffer "*slime-repl clojure*"
               (slime-repl-clear-buffer)))
           (clojure-test-run-tests))
         (slime-switch-to-output-buffer))
        (t (when (y-or-n-p "Slime is not connected, open a terminal?")
             (shell-command "cygterm&")))))