Skip to content
Browse files

Fix to be compatible with clojure.test for clojure 1.2-beta1

  • Loading branch information...
1 parent 8342b1c commit 1d48a70f58af9cd31b8b2c21dfe8b81108832134 @pjstadig pjstadig committed Jul 22, 2010
Showing with 5 additions and 1 deletion.
  1. +5 −1 clojure-test-mode.el
View
6 clojure-test-mode.el
@@ -146,7 +146,10 @@
[(:type event) (:message event)
(str (:expected event))
(str (:actual event))
- ((file-position 2) 1)])))
+ (if (and (= (:major *clojure-version*) 1)
+ (< (:minor *clojure-version*) 2))
+ ((file-position 2) 1)
+ (:line event))])))
(binding [*test-out* *out*]
(old-report event)))"))
@@ -158,6 +161,7 @@
#'clojure-test-extract-results))
(defun clojure-test-extract-results (results)
+ (print results)
(let ((result-vars (read (cadr results))))
;; slime-eval-async hands us a cons with a useless car
(mapc #'clojure-test-extract-result result-vars)

0 comments on commit 1d48a70

Please sign in to comment.
Something went wrong with that request. Please try again.