procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; server-test CI debugging

Browse source
This commit is contained in:
Mattias Engdegård 2022-12-02 18:06:00 +01:00
parent 4b3eb928fe
commit 8413e95138
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
test/lisp/server-tests.el
View file

@ -25,8 +25,8 @@
(defconst server-tests/can-create-frames-p (defconst server-tests/can-create-frames-p
(and (not (memq system-type '(windows-nt ms-dos))) (and (not (memq system-type '(windows-nt ms-dos)))
;; TERM=dumb is what we get when running from `compile'. nil
(not (equal (getenv "TERM") "dumb"))) (not (member (getenv "TERM") '("dumb" "" nil))))
"Non-nil if we can create a new frame in the tests. "Non-nil if we can create a new frame in the tests.
Some tests below need to create new frames for the emacsclient. Some tests below need to create new frames for the emacsclient.
However, this doesn't work on all platforms. In particular, 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 () (ert-deftest server-tests/server-start/sets-minor-mode ()
"Ensure that calling `server-start' also sets `server-mode' properly." "Ensure that calling `server-start' also sets `server-mode' properly."
(message "TERM=%S" (getenv "TERM"))
(should nil)
(server-tests/with-server (server-tests/with-server
;; Make sure starting the server activates the minor mode. ;; Make sure starting the server activates the minor mode.
(should (eq server-mode t)) (should (eq server-mode t))