diff options
author | Jim Porter <jporterbugs@gmail.com> | 2022-11-25 11:13:06 -0800 |
---|---|---|
committer | Jim Porter <jporterbugs@gmail.com> | 2022-11-26 13:40:33 -0800 |
commit | 14d54212ea46dbd8c950c9852318597e0e47908d (patch) | |
tree | 59dc3ec997725f0887c077b9d6b4463ea9492741 /lisp/server.el | |
parent | eb713a8fccc7f0512cfdbd5c520d4c856746a968 (diff) | |
download | emacs-14d54212ea46dbd8c950c9852318597e0e47908d.tar.gz |
Improve robustness of server.el tests
* lisp/emacs-lisp/ert.el (ert--insert-infos): Allow 'message' to be a
function that is called when inserting the info.
(ert-info): Update docstring to describe using a function for
MESSAGE-FORM.
* lisp/server.el (server-start): Log when the server is starting.
* test/lisp/server-tests.el (server-tests/can-create-frames-p): New
constant. Use it to skip tests that need to create frames.
(server-tests/start-emacsclient): Rename to...
(server-tests/start-client): ... this, and set the process's buffer.
(server-tests/with-server): Put the server file in a temporary
directory so we don't conflict with real Emacs servers.
(server-tests/with-client): New macro...
(server-tests/server-start/stop-prompt-with-client)
(server-tests/emacsclient/server-edit)
(server-tests/emacsclient/create-frame)
(server-tests/emacsclient/create-frame): ... use it.
(server-tests/server-start/stop-prompt-with-client): Simplify.
Diffstat (limited to 'lisp/server.el')
-rw-r--r-- | lisp/server.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/server.el b/lisp/server.el index beb46853b79..2102f8569b8 100644 --- a/lisp/server.el +++ b/lisp/server.el @@ -756,6 +756,7 @@ the `server-process' variable." :service server-file :plist '(:authenticated t))))) (unless server-process (error "Could not start server process")) + (server-log "Starting server") (process-put server-process :server-file server-file) (setq server-mode t) (push 'server-mode global-minor-modes) |