From: Eshel Yaron <me@eshelyaron.com>
Date: Wed, 29 May 2024 09:49:15 +0000 (+0200)
Subject: Add a couple of minibuffer completion tests
X-Git-Tag: archive/raspbian/1%30.1+1-3+rpi1^2~2^2~20^2~1315
X-Git-Url: https://dgit.raspbian.org/?a=commitdiff_plain;h=a9af70849d2d9ad2b6d2b81ba4ef4d4342bff6d8;p=emacs.git

Add a couple of minibuffer completion tests

Add tests for regressions that followed commit ff3f17ca3cd.

See discussion here:
https://lists.gnu.org/archive/html/emacs-devel/2024-05/msg00701.html

* test/lisp/minibuffer-tests.el (completion-cycle)
(minibuffer-next-completion): New tests.
---

diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el
index c4a7de9e51f..df36bce4634 100644
--- a/test/lisp/minibuffer-tests.el
+++ b/test/lisp/minibuffer-tests.el
@@ -630,5 +630,18 @@
       (previous-line-completion 7)
       (should (equal "aa1" (get-text-property (point) 'completion--string))))))
 
+(ert-deftest completion-cycle ()
+  (completing-read-with-minibuffer-setup '("aaa" "bbb" "ccc")
+    (let ((completion-cycle-threshold t))
+      (execute-kbd-macro (kbd "TAB TAB TAB"))
+      (should (equal (minibuffer-contents) "ccc")))))
+
+(ert-deftest minibuffer-next-completion ()
+  (let ((default-directory (ert-resource-directory)))
+    (completing-read-with-minibuffer-setup #'read-file-name-internal
+      (insert "d/")
+      (execute-kbd-macro (kbd "M-<down> M-<down> M-<down>"))
+      (should (equal "data/minibuffer-test-cttq$$tion" (minibuffer-contents))))))
+
 (provide 'minibuffer-tests)
 ;;; minibuffer-tests.el ends here