masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-06 04:09:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add test for when 'completion-auto-help' is 'visible'

Browse source 
* test/lisp/minibuffer-tests.el (completion-auto-help-test): Add
test for when 'completion-auto-help' is 'visible'.  Also test
for successful completion message.  (Bug#63913)
This commit is contained in:
Morgan Smith 2023-06-06 15:02:57 -04:00 • committed by Eli Zaretskii
parent 2c623e4feb
commit 90047c38ce
1 changed files with 13 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test/lisp/minibuffer-tests.el
View file

@ -353,12 +353,23 @@
'("a" "ab" "ac") '("a" "ab" "ac")
(execute-kbd-macro (kbd "a TAB TAB")) (execute-kbd-macro (kbd "a TAB TAB"))
(should (equal (car messages) "Complete, but not unique")) (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)) (let ((completion-auto-help t))
(completing-read-with-minibuffer-setup (completing-read-with-minibuffer-setup
'("a" "ab" "ac") '("a" "ab" "ac")
(execute-kbd-macro (kbd "a TAB TAB")) (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 () (ert-deftest completion-auto-select-test ()
(let ((completion-auto-select t)) (let ((completion-auto-select t))