* test/lisp/minibuffer-tests.el (completion-table-subvert-test): New test
This commit is contained in:
parent
78c9c2a110
commit
18fc4ac529
1 changed files with 6 additions and 0 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue