[elpa] externals/stream 76ed94e 27/36: Fix seq-empty-p for streams

[Stefan Monnier]

branch: externals/stream
commit 76ed94eeea7ee5bb6529617dbe20e41629a66cb9
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@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.
---
 stream.el             | 3 +++
 tests/stream-tests.el | 4 ++++
 2 files changed, 7 insertions(+)

diff --git a/stream.el b/stream.el
index 810adf9..b412807 100644
--- a/stream.el
+++ b/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/tests/stream-tests.el b/tests/stream-tests.el
index 473074b..decf3ad 100644
--- a/tests/stream-tests.el
+++ b/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