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

Skip emacsclient tests if --enable-profiling was used

Browse source 
* test/lib-src/emacsclient-tests.el
(emacsclient-test-call-emacsclient): Make it a macro.
Handle "Profiling timer expired" return from emacsclient.  (Bug#28319)
(emacsclient-test-alternate-editor-allows-arguments)
(emacsclient-test-alternate-editor-allows-quotes): Update for above.
This commit is contained in:
Glenn Morris 2017-09-06 20:06:57 -04:00
parent 1436ce83d3
commit a0e3f715fc
1 changed files with 19 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -31,26 +31,29 @@
"emacsclient")
"The emacsclient binary to test.")
(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"))
(defmacro emacsclient-test-call-emacsclient (editor)
"Run emacsclient with ALTERNATE_EDITOR set to EDITOR."
`(let* ((process-environment
(cons (concat "ALTERNATE_EDITOR=" ,editor) process-environment))
(stat (call-process emacsclient-test-emacs nil nil nil
"--server-file"
(expand-file-name "non-existent-file"
invocation-directory)
"foo")))
;; Skip if emacsclient was compiled with -pg (bug#28319).
;; Use ert--skip-unless rather than skip-unless to silence compiler.
(ert--skip-unless (not (and (stringp stat)
(string-match-p "rofiling" stat))))
(should (eq 0 stat))))
(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 (eq 0 (emacsclient-test-call-emacsclient)))))
(emacsclient-test-call-emacsclient
(concat (expand-file-name invocation-name invocation-directory) " --batch")))
(ert-deftest emacsclient-test-alternate-editor-allows-quotes ()
(let ((process-environment process-environment))
(setenv "ALTERNATE_EDITOR" (concat
"\""
(expand-file-name invocation-name invocation-directory)
"\"" " --batch"))
(should (eq 0 (emacsclient-test-call-emacsclient)))))
(emacsclient-test-call-emacsclient
(concat "\"" (expand-file-name invocation-name invocation-directory)
"\"" " --batch")))
(provide 'emacsclient-tests)
;;; emacsclient-tests.el ends here