[elpa] externals/stream 7874a25 05/36: * packages/stream/tests/stream-tests.el: New tests.

[Stefan Monnier]

branch: externals/stream
commit 7874a25d4256bae268d01f05e3ffee35577c0042
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>

    * packages/stream/tests/stream-tests.el: New tests.
---
 tests/stream-tests.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/tests/stream-tests.el b/tests/stream-tests.el
index c7b3057..a59aced 100644
--- a/tests/stream-tests.el
+++ b/tests/stream-tests.el
@@ -168,5 +168,12 @@
   (should (= (seq-length (seq-subseq (stream-range 2 10) 1 3)) 2))
   (should (= (seq-elt (seq-subseq (stream-range 2 10) 1 3) 1) 4)))
 
+(ert-deftest stream-rest-should-return-the-empty-stream-at-end-of-stream ()
+  (should (stream-empty-p (stream-rest (stream-rest (stream nil))))))
+
+(ert-deftest seq-take-should-not-signal-exceptions-at-end-of-stream ()
+  (should (equal (seq-into-sequence (seq-take (stream (list 1 2 3)) 4))
+                 '(1 2 3))))
+
 (provide 'stream-tests)
 ;;; stream-tests.el ends here