emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/bug-hunter 5f61401 33/95: More tests


From: Stefan Monnier
Subject: [elpa] externals/bug-hunter 5f61401 33/95: More tests
Date: Fri, 27 Nov 2020 22:06:52 -0500 (EST)

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

    More tests
---
 bug-hunter-test.el | 26 ++++++++++++++++++++++++--
 1 file changed, 24 insertions(+), 2 deletions(-)

diff --git a/bug-hunter-test.el b/bug-hunter-test.el
index eb5123d..9a4d9b8 100644
--- a/bug-hunter-test.el
+++ b/bug-hunter-test.el
@@ -9,10 +9,12 @@
 (require 'ert)
 (require 'cl)
 (require 'bug-hunter)
+(fset 'bug-hunter--report #'ignore)
+(fset 'bug-hunter--report-end #'ignore)
 
 (ert-deftest bug-hunter-test ()
   (should
-   (equal [2 (error void-variable not-defined)]
+   (equal [2 (bug-caught void-variable not-defined)]
           (bug-hunter-hunt
            '((setq test 1)
              (setq test 2)
@@ -40,5 +42,25 @@
       (let ((pos (- size (* 3 n) 1)))
         (setf (elt forms pos) 'not-defined)
         (should
-         (equal (vector pos '(error void-variable not-defined))
+         (equal (vector pos '(bug-caught void-variable not-defined))
                 (bug-hunter-hunt forms nil)))))))
+
+(ert-deftest bug-hunter-reader-error-test ()
+  (let ((file (expand-file-name "bug-hunter-test-dummy-file"
+                                default-directory)))
+    (with-temp-file file
+      (insert "(setq useless 1)\n#\n(setq useless 1)\n"))
+    (should-error (bug-hunter-file file nil))
+    (should
+     (equal '(bug-caught 2 invalid-read-syntax "#")
+            (bug-hunter--read-contents file)))
+    (with-temp-file file
+      (insert "(setq useless 1)\n)\n(setq useless 1)\n"))
+    (should
+     (equal '(bug-caught 2 invalid-read-syntax ")")
+            (bug-hunter--read-contents file)))
+    (with-temp-file file
+      (insert "(setq useless 1)\n(\n(setq useless 1)\n"))
+    (should
+     (equal '(bug-caught 2 end-of-file)
+            (bug-hunter--read-contents file)))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]