branch: externals/bug-hunter
commit fc2e59f2dd00c5994a3f5c8d3c1172544c5fd203
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
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))
