From 09b4320f96671acf4e04aa316a4f5340cc18388a Mon Sep 17 00:00:00 2001 From: Jonas Bernoulli Date: Tue, 6 Apr 2021 15:12:20 +0200 Subject: test: Suppress some noisy messages --- rust-mode-tests.el | 14 +++++++++++++- 1 file changed, 13 insertions(+), 1 deletion(-) (limited to 'rust-mode-tests.el') 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))) -- cgit v1.2.3