aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
Diffstat (limited to 'test')
-rw-r--r--test/automated/seq-tests.el20
1 files changed, 10 insertions, 10 deletions
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el
index 482daeecb98..efbb90dd988 100644
--- a/test/automated/seq-tests.el
+++ b/test/automated/seq-tests.el
@@ -129,21 +129,21 @@ Evaluate BODY for each created sequence.
129 (should (eq (seq-reduce #'+ seq 0) 0)) 129 (should (eq (seq-reduce #'+ seq 0) 0))
130 (should (eq (seq-reduce #'+ seq 7) 7)))) 130 (should (eq (seq-reduce #'+ seq 7) 7))))
131 131
132(ert-deftest test-seq-some-p () 132(ert-deftest test-seq-some ()
133 (with-test-sequences (seq '(4 3 2 1)) 133 (with-test-sequences (seq '(4 3 2 1))
134 (should (= (seq-some-p #'test-sequences-evenp seq) 4)) 134 (should (= (seq-some #'test-sequences-evenp seq) 4))
135 (should (= (seq-some-p #'test-sequences-oddp seq) 3)) 135 (should (= (seq-some #'test-sequences-oddp seq) 3))
136 (should-not (seq-some-p (lambda (elt) (> elt 10)) seq))) 136 (should-not (seq-some (lambda (elt) (> elt 10)) seq)))
137 (with-test-sequences (seq '()) 137 (with-test-sequences (seq '())
138 (should-not (seq-some-p #'test-sequences-oddp seq)))) 138 (should-not (seq-some #'test-sequences-oddp seq))))
139 139
140(ert-deftest test-seq-contains-p () 140(ert-deftest test-seq-contains ()
141 (with-test-sequences (seq '(3 4 5 6)) 141 (with-test-sequences (seq '(3 4 5 6))
142 (should (seq-contains-p seq 3)) 142 (should (seq-contains seq 3))
143 (should-not (seq-contains-p seq 7))) 143 (should-not (seq-contains seq 7)))
144 (with-test-sequences (seq '()) 144 (with-test-sequences (seq '())
145 (should-not (seq-contains-p seq 3)) 145 (should-not (seq-contains seq 3))
146 (should-not (seq-contains-p seq nil)))) 146 (should-not (seq-contains seq nil))))
147 147
148(ert-deftest test-seq-every-p () 148(ert-deftest test-seq-every-p ()
149 (with-test-sequences (seq '(43 54 22 1)) 149 (with-test-sequences (seq '(43 54 22 1))