(tab-bar-tests-quit-restore-window): Try and clarify the skip

* test/lisp/tab-bar-tests.el (tab-bar-tests-quit-restore-window):
Rewrite the `skip-unless` based on the code's history because
I found the current code quite confusing.

(cherry picked from commit f5e6f284e9f970cdbdfb25c8ae8308165f3ce5c5)

diff --git a/test/lisp/tab-bar-tests.el b/test/lisp/tab-bar-tests.el
index 06a52ed42b117ae6552338218289d19c7652aa72..257f6bd37d37df1048bb03096a7e958af3a1c1ee 100644 (file)
--- a/test/lisp/tab-bar-tests.el
+++ b/test/lisp/tab-bar-tests.el
@@ -52,13 +52,16 @@
   (tab-bar-tabs-set nil))
 
 (ert-deftest tab-bar-tests-quit-restore-window ()
-  ;; Emba runs the container without "--tty"
-  ;; (the environment variable "TERM" is nil), and this
-  ;; test fails with '(error "Could not open file: /dev/tty")'.
-  ;; Therefore skip it unless it can use '(tty-type . "linux")'.
-  (skip-unless (or (and (eq system-type 'gnu/linux) (getenv "TERM"))
-                   (and (not noninteractive)
-                        (eq system-type 'windows-nt))))
+  (skip-when (pcase system-type
+               ;; Skip test on MS-Windows in batch mode, since terminal
+               ;; frames cannot be created in that case.
+               ('windows-nt noninteractive)
+               ;; Emba runs the container without "--tty"
+               ;; (the environment variable "TERM" is nil), and this
+               ;; test fails with '(error "Could not open file: /dev/tty")'.
+               ;; Therefore skip it unless it can use '(tty-type . "linux")'.
+               ('gnu/linux (null (getenv "TERM")))))
+
   (let* ((frame-params (when noninteractive
                          '((window-system . nil)
                            (tty-type . "linux"))))