diff options
| author | Nicolas Petton | 2015-09-06 00:05:52 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2015-09-06 00:05:52 +0200 |
| commit | c36663d866e64fcb4b0d94742009d84366e9b54f (patch) | |
| tree | 6ff19468ec463376c8ef05f14923c4220f0247b5 /test | |
| parent | b8147621ec91e1ce8e34d55141bb75921dbfc080 (diff) | |
| download | emacs-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.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. | |||
| 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)) |