mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-26 15:21:51 -08:00
Code Issues Projects Releases Wiki Activity

Make minibuf-tests independent of obarray hash order

Browse source 
* test/src/minibuf-tests.el (minibuf-tests--set-equal): New.
(minibuf-tests--all-completions)
(minibuf-tests--all-completions-pred)
(minibuf-tests--all-completions-regexp): Use it.
This commit is contained in:
Mattias Engdegård 2024-02-08 19:04:23 +01:00
parent 79cfc1eaa0
commit bb77944306
1 changed files with 9 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

12
test/src/minibuf-tests.el
View file

@ -61,6 +61,9 @@
;;; Testing functions that are agnostic to type of COLLECTION.
(defun minibuf-tests--set-equal (a b)
(null (cl-set-exclusive-or a b :test #'equal)))
(defun minibuf-tests--try-completion (xform-collection)
(let* ((abcdef (funcall xform-collection '("abc" "def")))
(+abba (funcall xform-collection '("abc" "abba" "def"))))
@ -101,7 +104,8 @@
(let* ((abcdef (funcall xform-collection '("abc" "def")))
(+abba (funcall xform-collection '("abc" "abba" "def"))))
(should (equal (all-completions "a" abcdef) '("abc")))
(should (equal (all-completions "a" +abba) '("abc" "abba")))
(should (minibuf-tests--set-equal (all-completions "a" +abba)
'("abc" "abba")))
(should (equal (all-completions "abc" +abba) '("abc")))
(should (equal (all-completions "abcd" +abba) nil))))
@ -111,7 +115,8 @@
(+abba (funcall xform-collection '("abc" "abba" "def")))
(+abba-member (funcall collection-member +abba)))
(should (equal (all-completions "a" abcdef abcdef-member) '("abc")))
(should (equal (all-completions "a" +abba +abba-member) '("abc" "abba")))
(should (minibuf-tests--set-equal (all-completions "a" +abba +abba-member)
'("abc" "abba")))
(should (equal (all-completions "abc" +abba +abba-member) '("abc")))
(should (equal (all-completions "abcd" +abba +abba-member) nil))
(should-not (all-completions "a" abcdef #'ignore))
@ -124,7 +129,8 @@
(+abba (funcall xform-collection '("abc" "abba" "def"))))
(let ((completion-regexp-list '(".")))
(should (equal (all-completions "a" abcdef) '("abc")))
(should (equal (all-completions "a" +abba) '("abc" "abba")))
(should (minibuf-tests--set-equal (all-completions "a" +abba)
'("abc" "abba")))
(should (equal (all-completions "abc" +abba) '("abc")))
(should (equal (all-completions "abcd" +abba) nil)))
(let ((completion-regexp-list '("X")))