diff options
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)) |