emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/csharp-mode 69d95d2 179/459: Make tests less noisy.


From: ELPA Syncer
Subject: [elpa] externals/csharp-mode 69d95d2 179/459: Make tests less noisy.
Date: Sun, 22 Aug 2021 13:59:22 -0400 (EDT)

branch: externals/csharp-mode
commit 69d95d22475fc570224115e5430c6c9933e37e24
Author: Jostein Kjønigsen <jostein@kjonigsen.net>
Commit: Jostein Kjønigsen <jostein@kjonigsen.net>

    Make tests less noisy.
---
 csharp-mode-tests.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/csharp-mode-tests.el b/csharp-mode-tests.el
index 8738962..2727aba 100644
--- a/csharp-mode-tests.el
+++ b/csharp-mode-tests.el
@@ -25,7 +25,8 @@
          (assess-face-in-text= ,testee ,@rest)))))
 
 (defmacro assess-face-in-file= (file-name &rest assessments)
-  (let* ((buffer (find-file-read-only file-name))
+  (let* ((find-file-hook nil) ;; disable vc-mode hooks
+         (buffer (find-file-read-only file-name))
          (contents (buffer-substring-no-properties (point-min) (point-max))))
     (kill-buffer buffer)
     `(assess-face-in-text= ,contents ,@assessments)))
@@ -140,10 +141,10 @@
            (times     (length matched-file-names))
            (find-file-hook '()) ;; avoid vc-mode file-hooks when opening!
            (buffer (find-file-read-only file-name)))
-      (message (concat "Testing compilation-log: " file-name))
+      ;; (message (concat "Testing compilation-log: " file-name))
       (dotimes (number times)
         (let* ((expected (nth number matched-file-names)))
-          (message (concat "- Expecting match: " expected))
+          ;; (message (concat "- Expecting match: " expected))
           (re-search-forward regexp)
           (should
            (equal expected (match-string 1)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]