diff options
author | Nicolas Petton <nicolas@petton.fr> | 2015-09-06 00:05:52 +0200 |
---|---|---|
committer | Nicolas Petton <nicolas@petton.fr> | 2015-09-06 00:05:52 +0200 |
commit | c36663d866e64fcb4b0d94742009d84366e9b54f (patch) | |
tree | 6ff19468ec463376c8ef05f14923c4220f0247b5 /test | |
parent | b8147621ec91e1ce8e34d55141bb75921dbfc080 (diff) | |
download | emacs-c36663d866e64fcb4b0d94742009d84366e9b54f.tar.gz |
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.el | 20 |
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. (should (eq (seq-reduce #'+ seq 0) 0)) (should (eq (seq-reduce #'+ seq 7) 7)))) -(ert-deftest test-seq-some-p () +(ert-deftest test-seq-some () (with-test-sequences (seq '(4 3 2 1)) - (should (= (seq-some-p #'test-sequences-evenp seq) 4)) - (should (= (seq-some-p #'test-sequences-oddp seq) 3)) - (should-not (seq-some-p (lambda (elt) (> elt 10)) seq))) + (should (= (seq-some #'test-sequences-evenp seq) 4)) + (should (= (seq-some #'test-sequences-oddp seq) 3)) + (should-not (seq-some (lambda (elt) (> elt 10)) seq))) (with-test-sequences (seq '()) - (should-not (seq-some-p #'test-sequences-oddp seq)))) + (should-not (seq-some #'test-sequences-oddp seq)))) -(ert-deftest test-seq-contains-p () +(ert-deftest test-seq-contains () (with-test-sequences (seq '(3 4 5 6)) - (should (seq-contains-p seq 3)) - (should-not (seq-contains-p seq 7))) + (should (seq-contains seq 3)) + (should-not (seq-contains seq 7))) (with-test-sequences (seq '()) - (should-not (seq-contains-p seq 3)) - (should-not (seq-contains-p seq nil)))) + (should-not (seq-contains seq 3)) + (should-not (seq-contains seq nil)))) (ert-deftest test-seq-every-p () (with-test-sequences (seq '(43 54 22 1)) |