mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-16 09:50:25 +00:00
Code Issues Releases Activity

* test/lisp/minibuffer-tests.el (completion-table-subvert-test): New test

Browse Source
This commit is contained in:
Stefan Monnier 2019-03-20 10:52:30 -04:00
parent 78c9c2a110
commit 18fc4ac529
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/lisp/minibuffer-tests.el
View File

@ -74,5 +74,11 @@
'completion-table-with-predicate
full-collection no-A nil))))))
(ert-deftest completion-table-subvert-test ()
(let* ((origtable '("A-hello" "A-there"))
(subvtable (completion-table-subvert origtable "B" "A")))
(should (equal (try-completion "B-hel" subvtable)
"B-hello"))))
(provide 'completion-tests)
;;; completion-tests.el ends here