Fix ert errors when there's a test that binds `debug-on-error'

* lisp/emacs-lisp/ert.el (ert--run-test-internal): Don't infloop
on errors when signalling errors (bug#51131).
This commit is contained in:
Lars Ingebrigtsen 2021-10-11 11:14:26 +02:00
parent 96278de8ac
commit 07edc28bdb

View file

@ -783,6 +783,10 @@ This mainly sets up debugger-related bindings."
(ert--run-test-debugger test-execution-info
args)))
(debug-on-error t)
;; Don't infloop if the error being called is erroring
;; out, and we have `debug-on-error' bound to nil inside
;; the test.
(backtrace-on-error-noninteractive nil)
(debug-on-quit t)
;; FIXME: Do we need to store the old binding of this
;; and consider it in `ert--run-test-debugger'?