Run tests non-interactively

[sojka/company-mode.git] / company-elisp-tests.el

diff --git a/company-elisp-tests.el b/company-elisp-tests.el
index b027c5ec470cc522e419f6b1832debfa6fe66e2e..9b7cba33379bda942d69cf1bfc8ac158548881c2 100644 (file)
--- a/company-elisp-tests.el
+++ b/company-elisp-tests.el
@@ -25,6 +25,8 @@
 
 ;;; Code:
 
+(require 'company-elisp)
+
 (defmacro company-elisp-with-buffer (contents &rest body)
   (declare (indent 0))
   `(with-temp-buffer
@@ -78,14 +80,14 @@
                      (company-elisp-candidates "wh"))))))
 
 (ert-deftest company-elisp-candidates-predicate-binding-without-value ()
-  (loop for (text prefix predicate) in '(("(let (foo|" "foo" boundp)
-                                         ("(let (foo (bar|" "bar" boundp)
-                                         ("(let (foo) (bar|" "bar" fboundp))
-        do
-        (eval `(company-elisp-with-buffer
-                 ,text
-                 (should (eq ',predicate
-                             (company-elisp--candidates-predicate ,prefix)))))))
+  (cl-loop for (text prefix predicate) in '(("(let (foo|" "foo" boundp)
+                                            ("(let (foo (bar|" "bar" boundp)
+                                            ("(let (foo) (bar|" "bar" fboundp))
+           do
+           (eval `(company-elisp-with-buffer
+                   ,text
+                   (should (eq ',predicate
+                               (company-elisp--candidates-predicate ,prefix)))))))
 
 (ert-deftest company-elisp-finds-vars ()
   (let ((obarray [boo bar baz backquote])