aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorNicolas Petton2015-09-06 00:05:52 +0200
committerNicolas Petton2015-09-06 00:05:52 +0200
commitc36663d866e64fcb4b0d94742009d84366e9b54f (patch)
tree6ff19468ec463376c8ef05f14923c4220f0247b5 /test
parentb8147621ec91e1ce8e34d55141bb75921dbfc080 (diff)
downloademacs-c36663d866e64fcb4b0d94742009d84366e9b54f.tar.gz
emacs-c36663d866e64fcb4b0d94742009d84366e9b54f.zip
Rename seq-some-p to seq-some and seq-contains-p to seq-contains
* lisp/emacs-lisp/seq.el (seq-some, seq-contains): Rename the functions without the "-p" prefix. * test/automated/seq-tests.el (test-seq-some, test-seq-contains): Update the tests accordingly. * doc/lispref/sequences.texi (Sequence Functions): Update the documentation for seq.el.
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))