scratch/so-long 62e46bf 07/10: ; so-long-tests.el: Suppress expected warnings

[Phil Sainty]

branch: scratch/so-long
commit 62e46bf21dc73a5e0e74cb6cd56dd76efb12858b
Author: Phil Sainty <psainty@orcon.net.nz>
Commit: Phil Sainty <psainty@orcon.net.nz>

    ; so-long-tests.el: Suppress expected warnings
    
    * test/lisp/so-long-tests/so-long-tests.el
    (so-long-tests-invisible-buffer-function): Suppress warning about
    obsolete function `run-window-configuration-change-hook', as we are
    using it intentionally (see the preceding code comments and URL for
    details).
---
 test/lisp/so-long-tests/so-long-tests.el | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/test/lisp/so-long-tests/so-long-tests.el 
b/test/lisp/so-long-tests/so-long-tests.el
index 56c20e6..80f1c47 100644
--- a/test/lisp/so-long-tests/so-long-tests.el
+++ b/test/lisp/so-long-tests/so-long-tests.el
@@ -195,7 +195,9 @@
         ;; Emacs adds the framework necessary to make `redisplay' work
         ;; in batch mode.
         (unless (eq so-long--active t)
-          (run-window-configuration-change-hook))))
+          (with-suppressed-warnings
+              ((obsolete run-window-configuration-change-hook))
+            (run-window-configuration-change-hook)))))
     (so-long-tests-assert-and-revert 'so-long-mode))
   ;; `so-long-invisible-buffer-function' is `nil'.
   (with-temp-buffer
@@ -230,7 +232,9 @@
       (redisplay)
       (when noninteractive
         (unless (eq so-long--active t)
-          (run-window-configuration-change-hook))))
+          (with-suppressed-warnings
+              ((obsolete run-window-configuration-change-hook))
+            (run-window-configuration-change-hook)))))
     (should (eq major-mode 'emacs-lisp-mode))))
 
 (ert-deftest so-long-tests-actions ()