Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Move load buffer to test clear and remove uneeded load-file call

  • Loading branch information...
commit 41102f58a7c690db96bf424fe92ed42dcf00a70e 1 parent 023dd07
Gareth Jones authored
Showing with 2 additions and 3 deletions.
  1. +2 −3 clojure-test-mode.el
View
5 clojure-test-mode.el
@@ -341,7 +341,6 @@ Retuns the problem overlay if such a position is found, otherwise nil."
"Run all the tests in the current namespace."
(interactive)
(save-some-buffers nil (lambda () (equal major-mode 'clojure-mode)))
- (nrepl-load-current-buffer)
(message "Testing...")
(save-window-excursion
(if (not (clojure-in-tests-p))
@@ -358,7 +357,6 @@ Retuns the problem overlay if such a position is found, otherwise nil."
"Run the test at point."
(interactive)
(save-some-buffers nil (lambda () (equal major-mode 'clojure-mode)))
- (nrepl-load-current-buffer)
(clojure-test-clear
(lambda (buffer value)
(with-current-buffer buffer
@@ -369,7 +367,7 @@ Retuns the problem overlay if such a position is found, otherwise nil."
(format "(binding [clojure.test/report clojure.test.mode/report]
(clojure.test.mode/clojure-test-mode-test-one-in-ns '%s '%s)
(cons (:name (meta (var %s))) (:status (meta (var %s)))))"
- (buffer-file-name) (clojure-find-ns)
+ (clojure-find-ns)
test-name test-name test-name)
(lambda (buffer result-str)
(with-current-buffer buffer
@@ -394,6 +392,7 @@ Retuns the problem overlay if such a position is found, otherwise nil."
(setq clojure-test-count 0
clojure-test-failure-count 0
clojure-test-error-count 0)
+ (nrepl-load-current-buffer)
(clojure-test-eval
"(doseq [t (vals (ns-interns *ns*))]
(alter-meta! t assoc :status [])
Please sign in to comment.
Something went wrong with that request. Please try again.