branch: elpa/rust-mode
commit 09b4320f96671acf4e04aa316a4f5340cc18388a
Author: Jonas Bernoulli <[email protected]>
Commit: brotzeit <[email protected]>
test: Suppress some noisy messages
---
rust-mode-tests.el | 14 +++++++++++++-
1 file changed, 13 insertions(+), 1 deletion(-)
diff --git a/rust-mode-tests.el b/rust-mode-tests.el
index 56ed369..9c23ed4 100644
--- a/rust-mode-tests.el
+++ b/rust-mode-tests.el
@@ -9,6 +9,15 @@
(defconst rust-test-fill-column 32)
(setq-default indent-tabs-mode nil)
+(defmacro test-silence (messages &rest body)
+ `(cl-letf* (((symbol-function 'm)
+ (symbol-function #'message))
+ ((symbol-function #'message)
+ (lambda (format-string &rest args)
+ (unless (member format-string ,messages)
+ (apply 'm format-string args)))))
+ ,@body))
+
(defun rust-compare-code-after-manip (_original _point-pos _manip-func
expected got)
(equal expected got))
@@ -309,7 +318,10 @@ very very very long string
deindented
1
(lambda ()
- (indent-region 1 (+ 1 (buffer-size))))
+ (test-silence
+ '("%s %s" ; "Indenting..." progress-reporter-do-update
+ "%sdone") ; "Indenting...done" progress-reporter-done
+ (indent-region 1 (+ 1 (buffer-size)))))
indented)))
