[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master f394de2 2/2: Fix seq-empty-p for streams
From: |
Nicolas Petton |
Subject: |
[elpa] master f394de2 2/2: Fix seq-empty-p for streams |
Date: |
Tue, 19 Dec 2017 09:17:14 -0500 (EST) |
branch: master
commit f394de26fe41b659990760cc91fac5336c39da14
Author: Nicolas Petton <address@hidden>
Commit: Nicolas Petton <address@hidden>
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