branch: master
commit c7987a6e0d523b22712a937ab381d482dfe8fe9b
Author: rubikitch <[email protected]>
Commit: rubikitch <[email protected]>
Emacs exits abnormally when noninteractive test fails.
---
test-simple.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/test-simple.el b/test-simple.el
index b9b4ffb..05a4e90 100644
--- a/test-simple.el
+++ b/test-simple.el
@@ -365,5 +365,15 @@ It is preferable to write at the first line of test files
as a comment, e.g,
(global-set-key (kbd test-simple-runner-key) func)
(funcall func)))
+(defun test-simple-noninteractive-kill-emacs-hook ()
+ "Emacs exits abnormally when noninteractive test fails."
+ (when (and noninteractive test-simple-info
+ (<= 1 (test-info-failure-count test-simple-info)))
+ (let (kill-emacs-hook)
+ (kill-emacs 1))))
+(when noninteractive
+ (add-hook 'kill-emacs-hook 'test-simple-noninteractive-kill-emacs-hook))
+
+
(provide 'test-simple)
;;; test-simple.el ends here
