diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2018-05-07 22:07:11 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2018-05-07 22:07:11 +0300 |
commit | 581aaefd43f10439d80a34f5da613ac2def4950c (patch) | |
tree | 2711bd63278b188e6ca04975a622bd049dab38a9 /cider-test.el | |
parent | 35d72618ccf2841fb7d37dabaf03eb65795824d5 (diff) |
Optimize a bit of code
Diffstat (limited to 'cider-test.el')
-rw-r--r-- | cider-test.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/cider-test.el b/cider-test.el index 2dfeb07c..239124b0 100644 --- a/cider-test.el +++ b/cider-test.el @@ -767,12 +767,14 @@ is searched." (cider-test-update-last-test ns var) (cider-test-execute ns (list var))) ;; we're in a `clojure-mode' buffer - (let ((ns (clojure-find-ns)) - (def (clojure-find-def))) - (if (and ns (member (car def) cider-test-defining-forms)) + (let* ((ns (clojure-find-ns)) + (def (clojure-find-def)) ; it's a list of the form (deftest something) + (deftype (car def)) + (var (cadr def))) + (if (and ns (member deftype cider-test-defining-forms)) (progn - (cider-test-update-last-test ns (cdr def)) - (cider-test-execute ns (cdr def))) + (cider-test-update-last-test ns (list var)) + (cider-test-execute ns (list var))) (message "No test at point")))))) (defun cider-test-rerun-test () |