branch: externals/bug-hunter
commit a1364ba8bee9a4cc2ea544623e4327943e834945
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
Add a test
---
bug-hunter-test.el | 11 +++++++++++
1 file changed, 11 insertions(+)
diff --git a/bug-hunter-test.el b/bug-hunter-test.el
index 91f1122..28b9a3c 100644
--- a/bug-hunter-test.el
+++ b/bug-hunter-test.el
@@ -30,3 +30,14 @@
nil))
(should-error
(bug-hunter-hunt nil 'not-defined)))
+
+(ert-deftest bug-hunter-looong-hunt ()
+ (let* ((submax 30)
+ (size (* 3 submax))
+ (forms (make-list size '(setq dummy 1))))
+ (dotimes (n submax)
+ (let ((pos (- size (* 3 n) 1)))
+ (setf (elt forms pos) 'not-defined)
+ (should
+ (equal (vector pos '(error void-variable not-defined))
+ (bug-hunter-hunt forms nil)))))))
