Make a completion test robust to custom completion styles

* test/lisp/minibuffer-tests.el (completion-test1): Make test
resilient to more completion styles.

diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el
index 5988656bd7f6f7b390ff36c82b688cf8e290a0a6..d665587ba26b28ef0d33034620491470f3531d81 100644 (file)
--- a/test/lisp/minibuffer-tests.el
+++ b/test/lisp/minibuffer-tests.el
@@ -41,7 +41,8 @@
                                          (list (copy-marker (point-min))
                                                (copy-marker (point))
                                                #'test/completion-table)))
-      (let ((completion-at-point-functions (list #'test/completion-at-point)))
+      (let ((completion-styles '(basic))
+            (completion-at-point-functions (list #'test/completion-at-point)))
         (insert "TEST")
         (completion-at-point)
         (should (equal (buffer-string)