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