[Emacs-diffs] master 18fc4ac: * test/lisp/minibuffer-tests.el (completion-table-subvert-test): New test

[Stefan Monnier]

branch: master
commit 18fc4ac5294d85e37d9e544c04b5d4e89ef3237c
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * test/lisp/minibuffer-tests.el (completion-table-subvert-test): New test
---
 test/lisp/minibuffer-tests.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/test/lisp/minibuffer-tests.el b/test/lisp/minibuffer-tests.el
index 77bfea9..35df7cc 100644
--- a/test/lisp/minibuffer-tests.el
+++ b/test/lisp/minibuffer-tests.el
@@ -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