Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Revert "Avoid excessively large backtraces in ert-tests (bug#71988)"

Browse source 
This reverts commit 0264ab1118.
This commit is contained in:
Pip Cet 2025-06-20 14:03:40 +00:00
parent 1560e9bf66
commit 1bc86b1776
1 changed files with 2 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -595,14 +595,9 @@ This macro is used to test if macroexpansion in `should' works."
:body (lambda () (should (equal complex-list 1))))))
(let ((ert-debug-on-error nil)
messages)
(cl-letf* (((symbol-function 'cl-print-object)
(symbol-function 'cl-print-object))
((symbol-function 'message)
(cl-letf* (((symbol-function 'message)
(lambda (format-string &rest args)
(push (apply #'format format-string args) messages))))
;; don't print the ert--stats-tests vector, which would run out of
;; memory if previous tests have failed.
(cl-defmethod cl-print-object ((_object vector) _stream))
(save-window-excursion
(let ((case-fold-search nil)
(ert-batch-backtrace-right-margin nil)
@ -617,9 +612,7 @@ This macro is used to test if macroexpansion in `should' works."
do
(unless found-frame
(setq found-frame (cl-search frame msg :test 'equal))))
(should found-frame))))
;; ensure our temporary binding was undone.
(should (equal (cl-prin1-to-string [a]) "[a]")))
(should found-frame)))))
(ert-deftest ert-test-special-operator-p ()
(should (ert--special-operator-p 'if))