; Allow a tab-bar test on MS-Windows

* test/lisp/tab-bar-tests.el (tab-bar-tests-quit-restore-window):
Allow this test on MS-Windows in interactive sessions.

(cherry picked from commit 58ff10138060df71fd3158159382c5dd93440a3e)

diff --git a/test/lisp/tab-bar-tests.el b/test/lisp/tab-bar-tests.el
index 33ec580b450cbfc3228aa5ef6f7ef059c4fcaba9..dc8bb2ecc68f2385e24806cf681c3ad2c740cd58 100644 (file)
--- a/test/lisp/tab-bar-tests.el
+++ b/test/lisp/tab-bar-tests.el
@@ -52,7 +52,9 @@
   (tab-bar-tabs-set nil))
 
 (ert-deftest tab-bar-tests-quit-restore-window ()
-  (skip-unless (and (eq system-type 'gnu/linux) (getenv "TERM")))
+  (skip-unless (or (and (eq system-type 'gnu/linux) (getenv "TERM"))
+                   (and (not noninteractive)
+                        (eq system-type 'windows-nt))))
   (let* ((frame-params (when noninteractive
                          '((window-system . nil)
                            (tty-type . "linux"))))