[elpa] externals/compat 9223dff243 4/5: Improve assoc-delete-all tests

[ELPA Syncer]

branch: externals/compat
commit 9223dff2430165cc74ef10b3b183fee8e478b8b2
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Improve assoc-delete-all tests
---
 compat-tests.el | 30 +++++++++++++++---------------
 compat.texi     |  2 +-
 2 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 17b59f8a30..74e5beca28 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1116,23 +1116,23 @@
                 #'string-match-p)))
 
 (ert-deftest assoc-delete-all ()
-  (should-equal (list) (compat-call assoc-delete-all 0 (list)))
+  (should-equal (list) (assoc-delete-all 0 (list)))
   ;; Test `eq'
-  (should-equal '((1 . one)) (compat-call assoc-delete-all 0 (list (cons 1 
'one))))
-  (should-equal '((1 . one) a) (compat-call assoc-delete-all 0 (list (cons 1 
'one) 'a)))
-  (should-equal '((1 . one)) (compat-call assoc-delete-all 0 (list (cons 0 
'zero) (cons 1 'one))))
-  (should-equal '((1 . one)) (compat-call assoc-delete-all 0 (list (cons 0 
'zero) (cons 0 'zero) (cons 1 'one))))
-  (should-equal '((1 . one)) (compat-call assoc-delete-all 0 (list (cons 0 
'zero) (cons 1 'one) (cons 0 'zero))))
-  (should-equal '((1 . one) a) (compat-call assoc-delete-all 0 (list (cons 0 
'zero) (cons 1 'one) 'a  (cons 0 'zero))))
-  (should-equal '(a (1 . one)) (compat-call assoc-delete-all 0 (list 'a (cons 
0 'zero) (cons 1 'one) (cons 0 'zero))))
+  (should-equal '((1 . one)) (assoc-delete-all 0 (list (cons 1 'one))))
+  (should-equal '((1 . one) a) (assoc-delete-all 0 (list (cons 1 'one) 'a)))
+  (should-equal '((1 . one)) (assoc-delete-all 0 (list (cons 0 'zero) (cons 1 
'one))))
+  (should-equal '((1 . one)) (assoc-delete-all 0 (list (cons 0 'zero) (cons 0 
'zero) (cons 1 'one))))
+  (should-equal '((1 . one)) (assoc-delete-all 0 (list (cons 0 'zero) (cons 1 
'one) (cons 0 'zero))))
+  (should-equal '((1 . one) a) (assoc-delete-all 0 (list (cons 0 'zero) (cons 
1 'one) 'a  (cons 0 'zero))))
+  (should-equal '(a (1 . one)) (assoc-delete-all 0 (list 'a (cons 0 'zero) 
(cons 1 'one) (cons 0 'zero))))
   ;; Test `equal'
-  (should-equal '(("one" . one)) (compat-call assoc-delete-all "zero" (list 
(cons "one" 'one))))
-  (should-equal '(("one" . one) a) (compat-call assoc-delete-all "zero" (list 
(cons "one" 'one) 'a)))
-  (should-equal '(("one" . one)) (compat-call assoc-delete-all "zero" (list 
(cons "zero" 'zero) (cons "one" 'one))))
-  (should-equal '(("one" . one)) (compat-call assoc-delete-all "zero" (list 
(cons "zero" 'zero) (cons "zero" 'zero) (cons "one" 'one))))
-  (should-equal '(("one" . one)) (compat-call assoc-delete-all "zero" (list 
(cons "zero" 'zero) (cons "one" 'one) (cons "zero" 'zero))))
-  (should-equal '(("one" . one) a) (compat-call assoc-delete-all "zero" (list 
(cons "zero" 'zero) (cons "one" 'one) 'a  (cons "zero" 'zero))))
-  (should-equal '(a ("one" . one)) (compat-call assoc-delete-all "zero" (list 
'a (cons "zero" 'zero) (cons "one" 'one) (cons "zero" 'zero))))
+  (should-equal '(("one" . one)) (assoc-delete-all "zero" (list (cons "one" 
'one))))
+  (should-equal '(("one" . one) a) (assoc-delete-all "zero" (list (cons "one" 
'one) 'a)))
+  (should-equal '(("one" . one)) (assoc-delete-all "zero" (list (cons "zero" 
'zero) (cons "one" 'one))))
+  (should-equal '(("one" . one)) (assoc-delete-all "zero" (list (cons "zero" 
'zero) (cons "zero" 'zero) (cons "one" 'one))))
+  (should-equal '(("one" . one)) (assoc-delete-all "zero" (list (cons "zero" 
'zero) (cons "one" 'one) (cons "zero" 'zero))))
+  (should-equal '(("one" . one) a) (assoc-delete-all "zero" (list (cons "zero" 
'zero) (cons "one" 'one) 'a  (cons "zero" 'zero))))
+  (should-equal '(a ("one" . one)) (assoc-delete-all "zero" (list 'a (cons 
"zero" 'zero) (cons "one" 'one) (cons "zero" 'zero))))
   ;; Test custom predicate
   (should-equal '() (compat-call assoc-delete-all 0 (list (cons 1 'one)) #'/=))
   (should-equal '(a) (compat-call assoc-delete-all 0 (list (cons 1 'one) 'a) 
#'/=))
diff --git a/compat.texi b/compat.texi
index 37e9d5202c..6a37fe63d6 100644
--- a/compat.texi
+++ b/compat.texi
@@ -1382,7 +1382,7 @@ unless @var{flavor} is @code{iec}, in which case it will 
be @code{B}.
 @end defun
 
 @c copied from lispref/lists.texi
-@defun compat-call@ assoc-delete-all
+@defun compat-call@ assoc-delete-all key alist &optional test
 This function is like @code{assq-delete-all} except that it accepts
 an optional argument @var{test}, a predicate function to compare the
 keys in @var{alist}.  If omitted or @code{nil}, @var{test} defaults to