+10
-9
lines changedFilter options
+10
-9
lines changed Original file line number Diff line number Diff line change
@@ -438,7 +438,7 @@ for more information."
438 438
(if (< elapsed eask-minimum-reported-time)
439 439
(ignore-errors (eask-msg ,msg-end))
440 440
(ignore-errors (eask-write ,msg-end))
441 -
(eask-msg (ansi-white (format " (%.3fs)" elapsed))))))
441 +
(eask-msg (format " (%.3fs)" elapsed)))))
442 442
(ignore-errors (eask-write ,msg-start)) ,body
443 443
(ignore-errors (eask-msg ,msg-end))))
444 444
@@ -2083,7 +2083,7 @@ Arguments FNC and ARGS are used for advice `:around'."
2083 2083
(end-of-line)
2084 2084
(setq max-column (max (current-column) max-column)))
2085 2085
(eask-msg (concat "''" (spaces-string max-column) "''"))
2086 -
(eask-msg (ansi-white (buffer-string)))
2086 +
(eask-msg (buffer-string))
2087 2087
(eask-msg (concat "''" (spaces-string max-column) "''"))))
2088 2088 2089 2089
(defun eask-help (command &optional print-or-exit-code)
@@ -29,18 +29,19 @@
29 29 30 30
Arguments FNC and ARGS are used for advice `:around'."
31 31
(if eask-test-ert--message-loop (apply fnc args)
32 -
(let ((eask-test-ert--message-loop t))
32 +
(let ((eask-test-ert--message-loop t)
33 +
(text (ignore-errors (apply #'format args))))
33 34
(cond
34 35
;; (message nil) is used to clear the minibuffer
35 36
;; However, format requires the first argument to be a format string
36 37
((null (car args))
37 38
(apply fnc args))
38 -
((string-match-p "^[ ]+FAILED " (apply #'format args))
39 -
(eask-msg (ansi-red (apply #'format args))))
40 -
((string-match-p "^[ ]+SKIPPED " (apply #'format args))
41 -
(eask-msg (ansi-white (apply #'format args))))
42 -
((string-match-p "^[ ]+passed " (apply #'format args))
43 -
(eask-msg (ansi-green (apply #'format args))))
39 +
((string-match-p "^[ ]+FAILED " text)
40 +
(eask-msg (ansi-red text)))
41 +
((string-match-p "^[ ]+SKIPPED " text)
42 +
(eask-msg text))
43 +
((string-match-p "^[ ]+passed " text)
44 +
(eask-msg (ansi-green text)))
44 45
(t (apply fnc args))))))
45 46 46 47
(advice-add 'message :around #'eask-test-ert--message)
You can’t perform that action at this time.
RetroSearch is an open source project built by @garambo | Open a GitHub Issue
Search and Browse the WWW like it's 1997 | Search results from DuckDuckGo
HTML:
3.2
| Encoding:
UTF-8
| Version:
0.7.4