diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/seq-tests.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el index 3643ce53cb0..74c0700759e 100644 --- a/test/automated/seq-tests.el +++ b/test/automated/seq-tests.el | |||
| @@ -187,7 +187,12 @@ Evaluate BODY for each created sequence. | |||
| 187 | (should-not (seq-subseq '(1 2 3) 3)) | 187 | (should-not (seq-subseq '(1 2 3) 3)) |
| 188 | (should (seq-subseq '(1 2 3) -3)) | 188 | (should (seq-subseq '(1 2 3) -3)) |
| 189 | (should-error (seq-subseq '(1 2 3) 1 4)) | 189 | (should-error (seq-subseq '(1 2 3) 1 4)) |
| 190 | (should (seq-subseq '(1 2 3) 1 3))) | 190 | (should (seq-subseq '(1 2 3) 1 3)) |
| 191 | (should-error (seq-subseq '() -1)) | ||
| 192 | (should-error (seq-subseq [] -1)) | ||
| 193 | (should-error (seq-subseq "" -1)) | ||
| 194 | (should-not (seq-subseq '() 0)) | ||
| 195 | (should-error(seq-subseq '() 0 -1))) | ||
| 191 | 196 | ||
| 192 | (ert-deftest test-seq-concatenate () | 197 | (ert-deftest test-seq-concatenate () |
| 193 | (with-test-sequences (seq '(2 4 6)) | 198 | (with-test-sequences (seq '(2 4 6)) |