diff options
| author | Jeff Valk <jv@jeffvalk.com> | 2015-12-28 15:02:38 -0500 |
|---|---|---|
| committer | Jeff Valk <jv@jeffvalk.com> | 2015-12-28 15:15:14 -0500 |
| commit | 896074d3f604cabdf953471911ceb7044008df3d (patch) | |
| tree | 7c6560495a4edd080a4f6f087ce5924eb0998b08 /cider-test.el | |
| parent | 04bf2e55e62fac2e1ec64d5c89c68c2261b8fc62 (diff) | |
[Fix #1435] Display test results more specifically
Requires clojure-emacs/cider-nrepl@abc6c2b
Diffstat (limited to 'cider-test.el')
| -rw-r--r-- | cider-test.el | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/cider-test.el b/cider-test.el index 7c49059e..8a37ced3 100644 --- a/cider-test.el +++ b/cider-test.el @@ -289,18 +289,20 @@ With the actual value, the outermost '(not ...)' s-expression is removed." (cider-insert var 'font-lock-function-name-face t) (when context (cider-insert context 'font-lock-doc-face t)) (when message (cider-insert message 'font-lock-doc-string-face t)) - (when expected (cider-insert "expected: " 'font-lock-comment-face nil - (cider-font-lock-as-clojure expected))) - (when actual (cider-insert " actual: " 'font-lock-comment-face) - (if error - (progn (insert-text-button - error - 'follow-link t - 'action '(lambda (_button) (cider-test-stacktrace)) - 'help-echo "View causes and stacktrace") - (insert "\n")) - (insert (cider-font-lock-as-clojure actual))))) - (insert "\n")))) + (when expected + (cider-insert "expected: " 'font-lock-comment-face nil + (cider-font-lock-as-clojure expected))) + (when actual + (cider-insert " actual: " 'font-lock-comment-face nil + (cider-font-lock-as-clojure actual))) + (when error + (cider-insert " error: " 'font-lock-comment-face nil) + (insert-text-button error + 'follow-link t + 'action '(lambda (_button) (cider-test-stacktrace)) + 'help-echo "View causes and stacktrace") + (insert "\n")) + (insert "\n"))))) (defun cider-test-render-report (buffer ns summary results) "Emit into BUFFER the report for the NS, SUMMARY, and test RESULTS." |