[elpa] master e09c045: * packages/stream/tests/stream-tests.el: New tests.

[Nicolas Petton]

branch: master
commit e09c045db9f319c84d27d996fd5c6337c6e92488
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>

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

diff --git a/packages/stream/tests/stream-tests.el 
b/packages/stream/tests/stream-tests.el
index c7b3057..a59aced 100644
--- a/packages/stream/tests/stream-tests.el
+++ b/packages/stream/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