Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Fix test failures from the fix for bug#67661

Browse source 
* test/lisp/eshell/em-cmpl-tests.el
  (em-cmpl-test/file-completion/non-unique): Make test more robust.
This commit is contained in:
Jim Porter 2024-01-17 09:32:18 -08:00
parent c5031a52c5
commit 5f5faad249
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
test/lisp/eshell/em-cmpl-tests.el
View file

@ -175,18 +175,18 @@ ACTUAL and EXPECTED should both be lists of strings."
(ert-with-temp-directory default-directory
(write-region nil nil (expand-file-name "file.txt"))
(write-region nil nil (expand-file-name "file.el"))
;; Complete the first time. This should insert the common prefix
;; of our completions.
(should (equal (eshell-insert-and-complete "echo fi")
"echo file."))
;; Make sure the completions buffer isn't displayed.
(should-not (get-buffer-window "*Completions*"))
;; Now try completing again.
(let ((minibuffer-message-timeout 0)
(inhibit-message t))
(completion-at-point))
;; FIXME: We can't use `current-message' here.
(with-current-buffer (messages-buffer)
(save-excursion
(goto-char (point-max))
(forward-line -1)
(should (looking-at "Complete, but not unique")))))))
;; This time, we should display the completions buffer.
(should (get-buffer-window "*Completions*")))))
(ert-deftest em-cmpl-test/file-completion/glob ()
"Test completion of file names using a glob."