mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix EMBA failure for ert-test-record-backtrace

Browse source 
* test/lisp/emacs-lisp/ert-tests.el (ert-test-record-backtrace): Make
  this work with AOT.
This commit is contained in:
Lars Ingebrigtsen 2022-03-12 22:40:49 +01:00
parent f8bb6cca33
commit ed42d7ffb0
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -377,8 +377,11 @@ This macro is used to test if macroexpansion in `should' works."
(test (make-ert-test :body test-body))
(result (ert-run-test test)))
(should (ert-test-failed-p result))
(should (eq (backtrace-frame-fun (car (ert-test-failed-backtrace result)))
'signal))))
(should (memq (backtrace-frame-fun (car (ert-test-failed-backtrace result)))
;;; This is `ert-fail' on nativecomp and `signal'
;;; otherwise. It's not clear whether that's a bug
;;; or not (bug#51308).
'(ert-fail signal)))))
(ert-deftest ert-test-messages ()
:tags '(:causes-redisplay)