diff options
author | Bozhidar Batsov <bozhidar@batsov.com> | 2015-08-27 20:24:17 +0300 |
---|---|---|
committer | Bozhidar Batsov <bozhidar@batsov.com> | 2015-08-27 20:26:31 +0300 |
commit | 26c50a267091864d2d2dd14a1cc3447780f0a77d (patch) | |
tree | c4c8e546d8837bf4f8dee2e7ca6cf281acc1b851 /cider-test.el | |
parent | b9d9fdb0388f937ba2e04644c167971825797732 (diff) |
Add CIDER wrappers for nrepl-send-request and nrepl-send-sync-request
One more step towards decoupling CIDER and nrepl-client.
Diffstat (limited to 'cider-test.el')
-rw-r--r-- | cider-test.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/cider-test.el b/cider-test.el index 2b1d260e..df43097a 100644 --- a/cider-test.el +++ b/cider-test.el @@ -177,7 +177,7 @@ (defun cider-test-stacktrace-for (ns var index) "Display stacktrace for the erring NS VAR test with the assertion INDEX." (let (causes) - (nrepl-send-request + (cider-nrepl-send-request (append (list "op" "test-stacktrace" "session" (cider-current-session) "ns" ns "var" var "index" index) @@ -351,19 +351,19 @@ With the actual value, the outermost '(not ...)' s-expression is removed." ;; TODO: Figure out what to do when the metadata is missing (when (and file line (not (cider--tooling-file-p file))) (save-excursion - (goto-char (point-min)) - (forward-line (1- line)) - (forward-whitespace 1) - (forward-char) - (let ((beg (point))) - (forward-sexp) - (let ((overlay (make-overlay beg (point)))) - (overlay-put overlay 'font-lock-face (cider-test-type-face type)) - (overlay-put overlay 'type type) - (overlay-put overlay 'help-echo message) - (overlay-put overlay 'message message) - (overlay-put overlay 'expected expected) - (overlay-put overlay 'actual actual)))))))) + (goto-char (point-min)) + (forward-line (1- line)) + (forward-whitespace 1) + (forward-char) + (let ((beg (point))) + (forward-sexp) + (let ((overlay (make-overlay beg (point)))) + (overlay-put overlay 'font-lock-face (cider-test-type-face type)) + (overlay-put overlay 'type type) + (overlay-put overlay 'help-echo message) + (overlay-put overlay 'message message) + (overlay-put overlay 'expected expected) + (overlay-put overlay 'actual actual)))))))) (defun cider-test-highlight-problems (ns results) "Highlight all non-passing tests in the NS test RESULTS." @@ -419,7 +419,7 @@ Upon test completion, results are echoed and a test report is optionally displayed. When test failures/errors occur, their sources are highlighted." (cider-test-clear-highlights) (message "Testing...") - (nrepl-send-request + (cider-nrepl-send-request (list "ns" ns "op" (if retest "retest" "test") "tests" tests "session" (cider-current-session)) (lambda (response) |