From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 15 Jul 2022 10:15:26 +0000 (+0200)
Subject: Adjust whitespace tests
X-Git-Tag: emacs-29.0.90~1447^2~918
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6befaa02caee377acd11e7adf183a34c98afc819;p=emacs.git

Adjust whitespace tests
---

diff --git a/test/lisp/whitespace-tests.el b/test/lisp/whitespace-tests.el
index 07eaad4862b..2a59bfe9d80 100644
--- a/test/lisp/whitespace-tests.el
+++ b/test/lisp/whitespace-tests.el
@@ -52,9 +52,9 @@
 ;; mode.  So we call its innards instead.
 (defun whitespace-tests-whitespace-mode-on ()
   "Turn `whitespace-mode' on even in batch mode."
+  (setq whitespace-mode t)
   (whitespace-turn-on)
-  (whitespace-action-when-on)
-  (setq whitespace-mode t))
+  (whitespace-action-when-on))
 
 (ert-deftest whitespace-tests-display-tables ()
   "Test whitespace stores and restores the buffer display table - bug26892."
@@ -77,7 +77,6 @@
       ;test the stored display table is preserved
       (should (equal nil
                      (progn (whitespace-tests-whitespace-mode-on)
-                            (whitespace-tests-whitespace-mode-on)
                             (whitespace-turn-off)
                             buffer-display-table))))))