emacs-31 d0bd9b39a31: ; completion-pcm-bug80914: Only look at the car of the list.

branch: emacs-31
commit d0bd9b39a31b3b0077017431eac3b887818c70cd
Author: Spencer Baugh <[email protected]>
Commit: Sean Whitton <[email protected]>

    ; completion-pcm-bug80914: Only look at the car of the list.
    
    Avoids ordering issues.
---
 test/lisp/minibuffer-tests.el | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el
index 59ae6ae3758..d7f0ae73d2b 100644
--- a/test/lisp/minibuffer-tests.el
+++ b/test/lisp/minibuffer-tests.el
@@ -349,11 +349,9 @@
         (input "pcm/s/cl"))
     ;; The pattern has a single `point' at the end rather than an extra
     ;; `point' after the "s".
-    (should (equal (completion-pcm--find-all-completions
-                    input #'completion--file-name-table nil (length input))
-                   '(("s" any "/" "cl" point)
-                     ("sources/clang" "sys/class")
-                     "pcm/" "")))))
+    (should (equal (car (completion-pcm--find-all-completions
+                    input #'completion--file-name-table nil (length input)))
+                   '("s" any "/" "cl" point)))))
 
 (ert-deftest completion-initials ()
   ;; Should expand initials: