Commit 18fc4ac5 authored by Stefan Monnier's avatar Stefan Monnier

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

parent 78c9c2a1
Pipeline #1032 passed with stage
in 50 minutes and 3 seconds
......@@ -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
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment