[elpa] master f394de2 2/2: Fix seq-empty-p for streams

[Nicolas Petton]

branch: master
commit f394de26fe41b659990760cc91fac5336c39da14
Author: Nicolas Petton <nico...@petton.fr>
Commit: Nicolas Petton <nico...@petton.fr>

    Fix seq-empty-p for streams
    
    * packages/stream/stream.el (seq-empty-p): New method for streams.
    * packages/stream/tests/stream-tests.el (stream-seq-empty-test): New 
regression
      test.
---
 packages/stream/stream.el             | 3 +++
 packages/stream/tests/stream-tests.el | 4 ++++
 2 files changed, 7 insertions(+)

diff --git a/packages/stream/stream.el b/packages/stream/stream.el
index 810adf9..b412807 100644
--- a/packages/stream/stream.el
+++ b/packages/stream/stream.el
@@ -225,6 +225,9 @@ elements in the STREAMS in order."
 (cl-defmethod seqp ((_stream stream))
   t)
 
+(cl-defmethod seq-empty-p ((stream stream))
+  (stream-empty-p stream))
+
 (cl-defmethod seq-elt ((stream stream) n)
   "Return the element of STREAM at index N."
   (while (> n 0)
diff --git a/packages/stream/tests/stream-tests.el 
b/packages/stream/tests/stream-tests.el
index 473074b..decf3ad 100644
--- a/packages/stream/tests/stream-tests.el
+++ b/packages/stream/tests/stream-tests.el
@@ -40,6 +40,10 @@
   (should (streamp (stream-empty)))
   (should (stream-empty-p (stream-empty))))
 
+(ert-deftest stream-seq-empty-test ()
+  (should (seq-empty-p (stream-empty)))
+  (should-not (seq-empty-p (stream-range))))
+
 (ert-deftest stream-make-test ()
   (should (streamp (stream-range)))
   (should (not (stream-empty-p (stream-range))))) ;; Should use stream-list or 
something