diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/seq-tests.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el index efbb90dd988..07a183d024e 100644 --- a/test/automated/seq-tests.el +++ b/test/automated/seq-tests.el | |||
| @@ -131,11 +131,12 @@ Evaluate BODY for each created sequence. | |||
| 131 | 131 | ||
| 132 | (ert-deftest test-seq-some () | 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 #'test-sequences-evenp seq) 4)) | 134 | (should (seq-some #'test-sequences-evenp seq)) |
| 135 | (should (= (seq-some #'test-sequences-oddp seq) 3)) | 135 | (should (seq-some #'test-sequences-oddp seq)) |
| 136 | (should-not (seq-some (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 #'test-sequences-oddp seq)))) | 138 | (should-not (seq-some #'test-sequences-oddp seq))) |
| 139 | (should (seq-some #'null '(1 nil 2)))) | ||
| 139 | 140 | ||
| 140 | (ert-deftest test-seq-contains () | 141 | (ert-deftest test-seq-contains () |
| 141 | (with-test-sequences (seq '(3 4 5 6)) | 142 | (with-test-sequences (seq '(3 4 5 6)) |