diff options
| -rw-r--r-- | test/lisp/tab-bar-tests.el | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/test/lisp/tab-bar-tests.el b/test/lisp/tab-bar-tests.el index 06a52ed42b1..257f6bd37d3 100644 --- a/test/lisp/tab-bar-tests.el +++ b/test/lisp/tab-bar-tests.el | |||
| @@ -52,13 +52,16 @@ | |||
| 52 | (tab-bar-tabs-set nil)) | 52 | (tab-bar-tabs-set nil)) |
| 53 | 53 | ||
| 54 | (ert-deftest tab-bar-tests-quit-restore-window () | 54 | (ert-deftest tab-bar-tests-quit-restore-window () |
| 55 | ;; Emba runs the container without "--tty" | 55 | (skip-when (pcase system-type |
| 56 | ;; (the environment variable "TERM" is nil), and this | 56 | ;; Skip test on MS-Windows in batch mode, since terminal |
| 57 | ;; test fails with '(error "Could not open file: /dev/tty")'. | 57 | ;; frames cannot be created in that case. |
| 58 | ;; Therefore skip it unless it can use '(tty-type . "linux")'. | 58 | ('windows-nt noninteractive) |
| 59 | (skip-unless (or (and (eq system-type 'gnu/linux) (getenv "TERM")) | 59 | ;; Emba runs the container without "--tty" |
| 60 | (and (not noninteractive) | 60 | ;; (the environment variable "TERM" is nil), and this |
| 61 | (eq system-type 'windows-nt)))) | 61 | ;; test fails with '(error "Could not open file: /dev/tty")'. |
| 62 | ;; Therefore skip it unless it can use '(tty-type . "linux")'. | ||
| 63 | ('gnu/linux (null (getenv "TERM"))))) | ||
| 64 | |||
| 62 | (let* ((frame-params (when noninteractive | 65 | (let* ((frame-params (when noninteractive |
| 63 | '((window-system . nil) | 66 | '((window-system . nil) |
| 64 | (tty-type . "linux")))) | 67 | (tty-type . "linux")))) |