[elpa] externals/bug-hunter a1364ba 28/95: Add a test

[Stefan Monnier]

branch: externals/bug-hunter
commit a1364ba8bee9a4cc2ea544623e4327943e834945
Author: Artur Malabarba <bruce.connor.am@gmail.com>
Commit: Artur Malabarba <bruce.connor.am@gmail.com>

    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)))))))