summaryrefslogtreecommitdiff
path: root/cider-test.el
diff options
context:
space:
mode:
authorBozhidar Batsov <bozhidar@batsov.com>2015-11-24 09:12:37 +0200
committerBozhidar Batsov <bozhidar@batsov.com>2015-11-24 09:12:37 +0200
commitaf21a1c462111746afaff5da65e85f0c8b8af9b6 (patch)
tree4f314ab0a467160bdd886756fff8125c86f9de50 /cider-test.el
parenta474c3fbe8f25663945c9a96ffcb6fa1b7c0b6c1 (diff)
Use `cider-propertize-ns` wherever possible
Diffstat (limited to 'cider-test.el')
-rw-r--r--cider-test.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/cider-test.el b/cider-test.el
index 0ea94298..02ca508e 100644
--- a/cider-test.el
+++ b/cider-test.el
@@ -332,7 +332,7 @@ With the actual value, the outermost '(not ...)' s-expression is removed."
'face (cond ((not (zerop error)) 'cider-test-error-face)
((not (zerop fail)) 'cider-test-failure-face)
(t 'cider-test-success-face)))
- (concat (propertize ns 'face 'font-lock-type-face)
+ (concat (cider-propertize-ns ns)
(propertize ": " 'face 'default))
test fail error)))
@@ -434,14 +434,14 @@ 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 "Running tests in %s..." (propertize ns 'face 'font-lock-type-face))
+ (message "Running tests in %s..." (cider-propertize-ns ns))
(cider-nrepl-send-request
(list "ns" ns "op" (if retest "retest" "test")
"tests" tests "session" (cider-current-session))
(lambda (response)
(nrepl-dbind-response response (summary results status out err)
(cond ((member "namespace-not-found" status)
- (message "No tests namespace: %s" (propertize ns 'face 'font-lock-type-face)))
+ (message "No tests namespace: %s" (cider-propertize-ns ns)))
(out (cider-emit-interactive-eval-output out))
(err (cider-emit-interactive-eval-err-output err))
(results