diff options
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/compat-tests.el b/compat-tests.el index 17b59f8..74e5bec 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) #'/=)) |