diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/seq-tests.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/test/automated/seq-tests.el b/test/automated/seq-tests.el index e1e8ae002d0..ab46eb85f76 100644 --- a/test/automated/seq-tests.el +++ b/test/automated/seq-tests.el | |||
| @@ -283,7 +283,11 @@ Evaluate BODY for each created sequence. | |||
| 283 | (should (= b 2)) | 283 | (should (= b 2)) |
| 284 | (should (= c 3)) | 284 | (should (= c 3)) |
| 285 | (should (= d 4)) | 285 | (should (= d 4)) |
| 286 | (should (null e)))) | 286 | (should (null e))) |
| 287 | (seq-let (a b &rest others) seq | ||
| 288 | (should (= a 1)) | ||
| 289 | (should (= b 2)) | ||
| 290 | (should (same-contents-p others (seq-drop seq 2))))) | ||
| 287 | (let ((seq '(1 (2 (3 (4)))))) | 291 | (let ((seq '(1 (2 (3 (4)))))) |
| 288 | (seq-let (_ (_ (_ (a)))) seq | 292 | (seq-let (_ (_ (_ (a)))) seq |
| 289 | (should (= a 4)))) | 293 | (should (= a 4)))) |