branch: externals/bug-hunter
commit 45811c4e94929fab1162feff46cb50872e91e47d
Author: Artur Malabarba <[email protected]>
Commit: Artur Malabarba <[email protected]>
Fix tests
---
bug-hunter-test.el | 14 +++++++-------
bug-hunter.el | 2 +-
2 files changed, 8 insertions(+), 8 deletions(-)
diff --git a/bug-hunter-test.el b/bug-hunter-test.el
index 7247185..06b66c4 100644
--- a/bug-hunter-test.el
+++ b/bug-hunter-test.el
@@ -14,14 +14,14 @@
(ert-deftest bug-hunter-test ()
(should
- (equal [5 2 (void-variable not-defined) not-defined]
+ (equal [(void-variable not-defined) 5 2 not-defined]
(bug-hunter-hunt
'(((setq test 1) 3 0)
((setq test 2) 4 1)
(not-defined 5 2))
nil)))
(should
- (equal [2 11 (assertion-triggered t) (setq test2 2)]
+ (equal [(assertion-triggered t) 2 11 (setq test2 2)]
(bug-hunter-hunt
'(((setq test0 0) 0 9)
((setq test1 1) 1 10)
@@ -44,7 +44,7 @@
(dotimes (n size)
(setcar (elt forms (- size n 1)) 'not-defined)
(should
- (equal [12 90 (void-variable not-defined) not-defined]
+ (equal [(void-variable not-defined) 12 90 not-defined]
(bug-hunter-hunt forms nil)))))
(let* ((size 8)
(forms (make-list size '(setq dummy 1))))
@@ -62,17 +62,17 @@
(insert "(setq useless 1)\n#\n(setq useless 1)\n"))
(should
(equal (bug-hunter-file file nil)
- [2 0 (invalid-read-syntax "#")]))
+ [(invalid-read-syntax "#") 2 0]))
(should
- (equal '(bug-caught 2 0 (invalid-read-syntax "#"))
+ (equal '(bug-caught (invalid-read-syntax "#") 2 0)
(bug-hunter--read-contents file)))
(with-temp-file file
(insert "(setq useless 1)\n)\n(setq useless 1)\n"))
(should
- (equal '(bug-caught 2 0 (invalid-read-syntax ")"))
+ (equal '(bug-caught (invalid-read-syntax ")") 2 0)
(bug-hunter--read-contents file)))
(with-temp-file file
(insert "(setq useless 1)\n(\n(setq useless 1)\n"))
(should
- (equal '(bug-caught 2 0 (end-of-file))
+ (equal '(bug-caught (end-of-file) 2 0)
(bug-hunter--read-contents file)))))
diff --git a/bug-hunter.el b/bug-hunter.el
index c86abd7..bd6c06d 100644
--- a/bug-hunter.el
+++ b/bug-hunter.el
@@ -213,7 +213,7 @@ the file."
(bug-hunter--report " Caused by the following expression:\n%s"
(bug-hunter--pretty-format expression 4)))
(bug-hunter--report "\xc")
- `[,line ,column ,error ,expression])
+ `[,error ,line ,column ,expression])
;;; Execution functions
