diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-12 22:40:49 +0100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2022-03-12 22:40:49 +0100 |
| commit | ed42d7ffb07da6d4cbfee5357384371cf0f2f00f (patch) | |
| tree | 329149c2c8b82bd20580ac47f5d28a5f0091926e /test/lisp/emacs-lisp | |
| parent | f8bb6cca331cc487c4b3c16f33fe05a28fbacf01 (diff) | |
| download | emacs-ed42d7ffb07da6d4cbfee5357384371cf0f2f00f.tar.gz emacs-ed42d7ffb07da6d4cbfee5357384371cf0f2f00f.tar.bz2 emacs-ed42d7ffb07da6d4cbfee5357384371cf0f2f00f.zip | |
Fix EMBA failure for ert-test-record-backtrace
* test/lisp/emacs-lisp/ert-tests.el (ert-test-record-backtrace): Make
this work with AOT.
Diffstat (limited to 'test/lisp/emacs-lisp')
| -rw-r--r-- | test/lisp/emacs-lisp/ert-tests.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/test/lisp/emacs-lisp/ert-tests.el b/test/lisp/emacs-lisp/ert-tests.el index 7573d2ed056..84c28e11315 100644 --- a/test/lisp/emacs-lisp/ert-tests.el +++ b/test/lisp/emacs-lisp/ert-tests.el @@ -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) |