; server-test CI debugging

diff --git a/test/lisp/server-tests.el b/test/lisp/server-tests.el
index c7813e2aefc3190b9194ef6ba26fecd60eb046d2..f08c5bce5d5700932742bd3affa99f93fad00719 100644 (file)
--- a/test/lisp/server-tests.el
+++ b/test/lisp/server-tests.el
@@ -25,8 +25,8 @@
 
 (defconst server-tests/can-create-frames-p
   (and (not (memq system-type '(windows-nt ms-dos)))
-       ;; TERM=dumb is what we get when running from `compile'.
-       (not (equal (getenv "TERM") "dumb")))
+       nil
+       (not (member (getenv "TERM") '("dumb" "" nil))))
   "Non-nil if we can create a new frame in the tests.
 Some tests below need to create new frames for the emacsclient.
 However, this doesn't work on all platforms.  In particular,
@@ -119,6 +119,8 @@ process's status matches it."
 
 (ert-deftest server-tests/server-start/sets-minor-mode ()
   "Ensure that calling `server-start' also sets `server-mode' properly."
+  (message "TERM=%S" (getenv "TERM"))
+  (should nil)
   (server-tests/with-server
     ;; Make sure starting the server activates the minor mode.
     (should (eq server-mode t))