mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

Add check for expected backtrace in module calls.

Browse Source 
* test.el (mod-test-non-local-exit-signal-test): Compare actual
  backtrace to expected backtrace.
This commit is contained in:
Philipp Stephani 2015-12-20 21:59:10 +01:00
parent a749b55d8e
commit 05bfebfc91
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
modules/mod-test/test.el
View File

@ -64,7 +64,21 @@
;;
(ert-deftest mod-test-non-local-exit-signal-test ()
(should-error (mod-test-signal)))
(should-error (mod-test-signal))
(let (debugger-args backtrace)
(should-error
(let ((debugger (lambda (&rest args)
(setq debugger-args args
backtrace (with-output-to-string (backtrace)))
(cl-incf num-nonmacro-input-events)))
(debug-on-signal t))
(mod-test-signal)))
(should (equal debugger-args '(error (error . 56))))
(should (string-match-p
(rx bol " internal--module-call(" (+ nonl) ?\) ?\n
" apply(internal--module-call " (+ nonl) ?\) ?\n
" mod-test-signal()" eol)
backtrace))))
(ert-deftest mod-test-non-local-exit-throw-test ()
(should (equal