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

Stop emacsclient tests hanging (Bug#28319)

Browse source 
* test/lib-src/emacsclient-tests.el
(emacsclient-test-alternate-editor-allows-arguments): Use a
non-existent file to communicate with server, so that any existing
default server will not be hijacked (in fact, the test does
not need a server).
(emacsclient-test-alternate-editor-allows-quotes): Likewise.
This commit is contained in:
Reuben Thomas 2017-09-01 21:21:38 +01:00
parent c4ccafb1a5
commit 4bc2795a40
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test/lib-src/emacsclient-tests.el
View file

@ -31,12 +31,18 @@
"lib-src"))
"Path to emacsclient binary in build tree.")
(defun call-emacsclient ()
"Run emacsclient."
(call-process emacsclient-test-emacs nil nil nil
"--server-file" (expand-file-name "non-existent-file" invocation-directory)
"foo"))
(ert-deftest emacsclient-test-alternate-editor-allows-arguments ()
(let (process-environment process-environment)
(setenv "ALTERNATE_EDITOR" (concat
(expand-file-name invocation-name invocation-directory)
" --batch"))
(should (= 0 (call-process emacsclient-test-emacs nil nil nil "foo")))))
(should (= 0 (call-emacsclient)))))
(ert-deftest emacsclient-test-alternate-editor-allows-quotes ()
(let (process-environment process-environment)
@ -44,7 +50,7 @@
"\""
(expand-file-name invocation-name invocation-directory)
"\"" " --batch"))
(should (= 0 (call-process emacsclient-test-emacs nil nil nil "foo")))))
(should (= 0 (call-emacsclient)))))
(provide 'emacsclient-tests)
;;; emacsclient-tests.el ends here