diff options
| author | Nicolas Petton | 2015-08-08 21:54:45 +0200 |
|---|---|---|
| committer | Nicolas Petton | 2015-08-08 21:54:45 +0200 |
| commit | 45987b34535e5ae97fa14535630e283f34af94dd (patch) | |
| tree | a1b428b39bbd513111e11f59558a815b2548d728 /test | |
| parent | c208eefcef22183a03d0f03a95a830a14242970c (diff) | |
| parent | feadec307da148af70cf87013c99771ca4db91e4 (diff) | |
| download | emacs-45987b34535e5ae97fa14535630e283f34af94dd.tar.gz emacs-45987b34535e5ae97fa14535630e283f34af94dd.zip | |
Merge remote-tracking branch 'origin/fix/subsequence-error-with-negative-sequences'
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)) |