[elpa] externals/bug-hunter e86102c 05/95: define tests

[Stefan Monnier]

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

    define tests
---
 bug-hunter-test.el | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)

diff --git a/bug-hunter-test.el b/bug-hunter-test.el
new file mode 100644
index 0000000..165042e
--- /dev/null
+++ b/bug-hunter-test.el
@@ -0,0 +1,32 @@
+(unless (bound-and-true-p package--initialized)
+  (setq
+   package-user-dir (expand-file-name
+                     (format "../.cask/%s/elpa" emacs-version)
+                     (file-name-directory load-file-name)))
+
+  (package-initialize))
+
+(require 'ert)
+(require 'bug-hunter)
+
+(ert-deftest bug-hunter-test ()
+  (should
+   (equal '(2 (error void-variable not-defined))
+          (bug-hunter-hunt
+           '((setq test 1)
+             (setq test 2)
+             not-defined)
+           nil)))
+  (should
+   (equal '(2 t)
+          (bug-hunter-hunt
+           '((setq test0 0)
+             (setq test1 1)
+             (setq test2 2))
+           '(ignore-errors (> test2 test1)))))
+  (should-error (bug-hunter-hunt
+                 '((setq test 1)
+                   (setq test 2))
+                 nil))
+  (should-error
+   (bug-hunter-hunt nil 'not-defined)))