diff options
| author | Juri Linkov | 2025-11-04 19:23:55 +0200 |
|---|---|---|
| committer | Juri Linkov | 2025-11-04 19:23:55 +0200 |
| commit | 2bec93b5f4a04e893b975d35d2ef39969d596979 (patch) | |
| tree | 8a86fa7a8055f868d5f27db0a55782eba2397604 | |
| parent | 959345f602d9a779875df689bdf0adb2b84be4dc (diff) | |
| download | emacs-2bec93b5f4a04e893b975d35d2ef39969d596979.tar.gz emacs-2bec93b5f4a04e893b975d35d2ef39969d596979.zip | |
* test/lisp/emacs-lisp/map-ynp-tests.el: Silence backtrace.
(test-map-ynp-kmacro): Ignore 'backtrace-print' that prints
unrequested backtrace (bug#67836).
| -rw-r--r-- | test/lisp/emacs-lisp/map-ynp-tests.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/test/lisp/emacs-lisp/map-ynp-tests.el b/test/lisp/emacs-lisp/map-ynp-tests.el index 371d52e2028..6a9c8213791 100644 --- a/test/lisp/emacs-lisp/map-ynp-tests.el +++ b/test/lisp/emacs-lisp/map-ynp-tests.el | |||
| @@ -33,14 +33,15 @@ | |||
| 33 | 33 | ||
| 34 | (ert-deftest test-map-ynp-kmacro () | 34 | (ert-deftest test-map-ynp-kmacro () |
| 35 | "Test that `map-y-or-n-p' in a kmacro terminates on end of input." | 35 | "Test that `map-y-or-n-p' in a kmacro terminates on end of input." |
| 36 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) | 36 | (cl-letf* (((symbol-function #'backtrace-print) (lambda ()))) ;; bug#67836 |
| 37 | (should-error | 37 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) |
| 38 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))) | 38 | (should-error |
| 39 | (unless noninteractive | 39 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))) |
| 40 | (let ((noninteractive t)) | 40 | (unless noninteractive |
| 41 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) | 41 | (let ((noninteractive t)) |
| 42 | (should-error | 42 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET y")) |
| 43 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET")))))) | 43 | (should-error |
| 44 | (execute-kbd-macro (read-kbd-macro "M-: (map-ynp-tests-simple-call) RET"))))))) | ||
| 44 | 45 | ||
| 45 | (provide 'map-ynp-tests) | 46 | (provide 'map-ynp-tests) |
| 46 | ;;; map-ynp-tests.el ends here | 47 | ;;; map-ynp-tests.el ends here |