branch: externals/compat
commit 9223dff2430165cc74ef10b3b183fee8e478b8b2
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@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
