diff options
| author | Reuben Thomas <rrt@sc3d.org> | 2017-09-01 23:38:31 +0100 |
|---|---|---|
| committer | Reuben Thomas <rrt@sc3d.org> | 2017-09-01 23:41:15 +0100 |
| commit | 6c995e4194d016fa8959acffd5787da4d3032f05 (patch) | |
| tree | efe83bf22439da54f42ce8be81ef0bb487733a8d /test/lib-src | |
| parent | cae005f28d8533aeb76ccb18601158ea959bc807 (diff) | |
| download | emacs-6c995e4194d016fa8959acffd5787da4d3032f05.tar.gz emacs-6c995e4194d016fa8959acffd5787da4d3032f05.tar.bz2 emacs-6c995e4194d016fa8959acffd5787da4d3032f05.zip | |
Fix a mis-binding and a bad defun name in a test (Bug#28319)
test/lib-src/emacs-client-tests.el (call-emacsclient): Rename
emacsclient-test-call-emacsclient.
(emacsclient-test-alternate-editor-allows-arguments)
(emacsclient-test-alternate-editor-allows-quotes): Fix let-binding of
process-environment.
Thanks to Glenn Morris for noticing these errors.
Diffstat (limited to 'test/lib-src')
| -rw-r--r-- | test/lib-src/emacsclient-tests.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/test/lib-src/emacsclient-tests.el b/test/lib-src/emacsclient-tests.el index e454e2825e6..91f1f1002d5 100644 --- a/test/lib-src/emacsclient-tests.el +++ b/test/lib-src/emacsclient-tests.el @@ -31,26 +31,26 @@ "lib-src")) "Path to emacsclient binary in build tree.") -(defun call-emacsclient () +(defun emacsclient-test-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) + (let ((process-environment process-environment)) (setenv "ALTERNATE_EDITOR" (concat (expand-file-name invocation-name invocation-directory) " --batch")) - (should (= 0 (call-emacsclient))))) + (should (= 0 (emacsclient-test-call-emacsclient))))) (ert-deftest emacsclient-test-alternate-editor-allows-quotes () - (let (process-environment process-environment) + (let ((process-environment process-environment)) (setenv "ALTERNATE_EDITOR" (concat "\"" (expand-file-name invocation-name invocation-directory) "\"" " --batch")) - (should (= 0 (call-emacsclient))))) + (should (= 0 (emacsclient-test-call-emacsclient))))) (provide 'emacsclient-tests) ;;; emacsclient-tests.el ends here |