summaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorNicolas Petton <nicolas@petton.fr>2015-09-06 00:05:52 +0200
committerNicolas Petton <nicolas@petton.fr>2015-09-06 00:05:52 +0200
commitc36663d866e64fcb4b0d94742009d84366e9b54f (patch)
tree6ff19468ec463376c8ef05f14923c4220f0247b5 /test
parentb8147621ec91e1ce8e34d55141bb75921dbfc080 (diff)
downloademacs-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.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.
(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))