From a1f095c8b26000d7526ce4791767c8a69eb915ea Mon Sep 17 00:00:00 2001 From: Morgan Smith Date: Tue, 6 Jun 2023 15:02:57 -0400 Subject: [PATCH] Add test for when completion-auto-help is 'visible * test/lisp/minibuffer-tests.el (completion-auto-help-test): Add for for when completion-auto-help is 'visible. Also test for successful completion message. --- test/lisp/minibuffer-tests.el | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el index 1de8e56cbd4..a67fc555772 100644 --- a/test/lisp/minibuffer-tests.el +++ b/test/lisp/minibuffer-tests.el @@ -353,12 +353,23 @@ '("a" "ab" "ac") (execute-kbd-macro (kbd "a TAB TAB")) (should (equal (car messages) "Complete, but not unique")) - (should-not (get-buffer-window "*Completions*" 0)))) + (should-not (get-buffer-window "*Completions*" 0)) + (execute-kbd-macro (kbd "b TAB")) + (should (equal (car messages) "Sole completion")))) (let ((completion-auto-help t)) (completing-read-with-minibuffer-setup '("a" "ab" "ac") (execute-kbd-macro (kbd "a TAB TAB")) - (should (get-buffer-window "*Completions*" 0))))))) + (should (get-buffer-window "*Completions*" 0)) + (execute-kbd-macro (kbd "b TAB")) + (should (equal (car messages) "Sole completion")))) + (let ((completion-auto-help 'visible)) + (completing-read-with-minibuffer-setup + '("a" "ab" "ac" "achoo") + (execute-kbd-macro (kbd "a TAB TAB")) + (should (get-buffer-window "*Completions*" 0)) + (execute-kbd-macro (kbd "ch TAB")) + (should (equal (car messages) "Sole completion"))))))) (ert-deftest completion-auto-select-test () (let ((completion-auto-select t)) -- 2.40.1