diff options
author | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2015-11-13 00:42:54 +0200 |
---|---|---|
committer | Bozhidar Batsov <bozhidar.batsov@gmail.com> | 2015-11-13 00:42:54 +0200 |
commit | 245096f060c0d0cfd5694396ec7c629d0ead6a65 (patch) | |
tree | ab3fcc85d750db72bd22841a6874c93421b7c309 /cider-test.el | |
parent | 9130031c5ec7bc95320f0bf48f1ba98082bc758e (diff) | |
parent | 9eaf3506327c03f6d41ab7cb0ca22cd3cb545986 (diff) |
Merge pull request #1413 from Fabricationatorishnicatorist/report_ns_in_minibuffer
[#1406] When running tests, report test ns in minibuffer messages
Diffstat (limited to 'cider-test.el')
-rw-r--r-- | cider-test.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/cider-test.el b/cider-test.el index 88179624..9866c6eb 100644 --- a/cider-test.el +++ b/cider-test.el @@ -325,12 +325,12 @@ With the actual value, the outermost '(not ...)' s-expression is removed." ;;; Summary echo -(defun cider-test-echo-summary (summary) - "Echo SUMMARY statistics for a test run." +(defun cider-test-echo-summary (summary ns) + "Echo SUMMARY statistics for a test run of tests in NS." (nrepl-dbind-response summary (test fail error) (message (propertize - (format "Ran %s tests. %s failures, %s errors." test fail error) + (format "Ran %d tests in %s. %d failures, %d errors." test ns fail error) 'face (cond ((not (zerop error)) 'cider-test-error-face) ((not (zerop fail)) 'cider-test-failure-face) (t 'cider-test-success-face)))))) @@ -434,7 +434,7 @@ This uses the Leiningen convention of appending '-test' to the namespace name." 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...") + (message "Running tests in %s..." ns) (cider-nrepl-send-request (list "ns" ns "op" (if retest "retest" "test") "tests" tests "session" (cider-current-session)) @@ -449,7 +449,7 @@ displayed. When test failures/errors occur, their sources are highlighted." (setq cider-test-last-test-ns ns) (setq cider-test-last-results results) (cider-test-highlight-problems ns results) - (cider-test-echo-summary summary) + (cider-test-echo-summary summary ns) (if (or (not (zerop (+ error fail))) cider-test-show-report-on-success) (cider-test-render-report |