[elpa] externals/bug-hunter fc2e59f 35/95: More testing

[Stefan Monnier]

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

    More testing
---
 bug-hunter-test.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/bug-hunter-test.el b/bug-hunter-test.el
index 9f4d4b7..02c9fcc 100644
--- a/bug-hunter-test.el
+++ b/bug-hunter-test.el
@@ -35,11 +35,18 @@
    (bug-hunter-hunt nil 'not-defined)))
 
 (ert-deftest bug-hunter-looong-hunt ()
-  (let* ((submax 30)
-         (size (* 3 submax))
+  (let* ((size 30)
          (forms (make-list size '(setq dummy 1))))
-    (dotimes (n submax)
-      (let ((pos (- size (* 3 n) 1)))
+    (dotimes (n size)
+      (let ((pos (- size n 1)))
+        (setf (elt forms pos) 'not-defined)
+        (should
+         (equal (vector pos '(bug-caught void-variable not-defined))
+                (bug-hunter-hunt forms nil))))))
+  (let* ((size 8)
+         (forms (make-list size '(setq dummy 1))))
+    (dotimes (n size)
+      (let ((pos (- size n 1)))
         (setf (elt forms pos) 'not-defined)
         (should
          (equal (vector pos '(bug-caught void-variable not-defined))