[nongnu] elpa/rust-mode 09b4320 476/486: test: Suppress some noisy messages

[ELPA Syncer]

branch: elpa/rust-mode
commit 09b4320f96671acf4e04aa316a4f5340cc18388a
Author: Jonas Bernoulli <jonas@bernoul.li>
Commit: brotzeit <brotzeitmacher@gmail.com>

    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)))