branch: externals/bug-hunter
commit a300e9a2447d050c25d68fbb18821d1eb78489fe
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
Add test
---
bug-hunter-test.el | 6 ++++++
1 file changed, 6 insertions(+)
diff --git a/bug-hunter-test.el b/bug-hunter-test.el
index 90bfd57..d55ebf3 100644
--- a/bug-hunter-test.el
+++ b/bug-hunter-test.el
@@ -38,6 +38,12 @@
(should-error
(bug-hunter-hunt nil 'not-defined)))
+(ert-deftest bug-hunter-test-interactive ()
+ (cl-letf (((symbol-function #'y-or-n-p) #'ignore))
+ (should-error (bug-hunter-hunt
+ '(((kill-emacs) 0 1))
+ 'interactive))))
+
(ert-deftest bug-hunter-looong-hunt ()
(let* ((size 30)
(forms (make-list size '((setq dummy 1) 12 90))))
