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

Unbreak a few unit tests that rely on lack of backtraces

Browse source 
* test/lisp/emacs-lisp/gv-tests.el (gv-dont-define-expander-in-file)
(gv-dont-define-expander-other-file):
* test/lisp/emacs-lisp/edebug-tests.el (edebug-tests-with-default-config):
Suppress backtraces in batch mode to unbreak unit tests.
This commit is contained in:
Philipp Stephani 2020-12-07 11:57:17 +01:00
parent 3970f4ac40
commit 2d989e81b7
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/emacs-lisp/edebug-tests.el
View file

@ -97,7 +97,10 @@ back to the top level.")
;; sit-on interferes with keyboard macros.
(edebug-sit-on-break nil)
(edebug-continue-kbd-macro t))
(edebug-continue-kbd-macro t)
;; don't print backtraces, otherwise error messages don't match
(backtrace-on-error-noninteractive nil))
,@body))
(defmacro edebug-tests-with-normal-env (&rest body)

11
test/lisp/emacs-lisp/gv-tests.el
View file

@ -83,7 +83,10 @@
(with-temp-buffer
(call-process (concat invocation-directory invocation-name)
nil '(t t) nil
"-Q" "-batch" "--eval" (prin1-to-string `(byte-compile-file ,el))
"-Q" "-batch"
"--eval" (prin1-to-string
`(let ((backtrace-on-error-noninteractive nil))
(byte-compile-file ,el)))
"-l" elc)
(should (equal (buffer-string)
"Symbol's function definition is void: \\(setf\\ gv-test-foo\\)\n")))))
@ -133,8 +136,10 @@
"-Q" "-batch" "--eval" (prin1-to-string `(byte-compile-file ,el))
"-l" elc
"--eval"
(prin1-to-string '(progn (setf (gv-test-foo gv-test-pair) 99)
(message "%d" (car gv-test-pair)))))
(prin1-to-string
'(let ((backtrace-on-error-noninteractive nil))
(setf (gv-test-foo gv-test-pair) 99)
(message "%d" (car gv-test-pair)))))
(should (string-match
"\\`Symbol.s function definition is void: \\\\(setf\\\\ gv-test-foo\\\\)\n\\'"
(buffer-string))))))