diff options
| author | Reuben Thomas <rrt@sc3d.org> | 2017-09-01 21:21:38 +0100 |
|---|---|---|
| committer | Reuben Thomas <rrt@sc3d.org> | 2017-09-01 21:32:12 +0100 |
| commit | 4bc2795a401cf31fa8bb4d5a45698b181951786f (patch) | |
| tree | e9876654a455b15a33c36b9063e8be45038695f0 /test/lib-src/emacsclient-tests.el | |
| parent | c4ccafb1a59677c669519575b47d20f3ed4bacb3 (diff) | |
| download | emacs-4bc2795a401cf31fa8bb4d5a45698b181951786f.tar.gz emacs-4bc2795a401cf31fa8bb4d5a45698b181951786f.tar.bz2 emacs-4bc2795a401cf31fa8bb4d5a45698b181951786f.zip | |
Stop emacsclient tests hanging (Bug#28319)
* 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.
Diffstat (limited to 'test/lib-src/emacsclient-tests.el')
| -rw-r--r-- | test/lib-src/emacsclient-tests.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/test/lib-src/emacsclient-tests.el b/test/lib-src/emacsclient-tests.el index ea757f69144..e454e2825e6 100644 --- a/test/lib-src/emacsclient-tests.el +++ b/test/lib-src/emacsclient-tests.el @@ -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 |