[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/stream fbe7ebd 06/36: Update stream.el to version 2.0.0
From: |
Stefan Monnier |
Subject: |
[elpa] externals/stream fbe7ebd 06/36: Update stream.el to version 2.0.0 |
Date: |
Tue, 1 Dec 2020 17:22:47 -0500 (EST) |
branch: externals/stream
commit fbe7ebd9a110f4e701689f5d1a7648c2288a7076
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>
Update stream.el to version 2.0.0
* packages/stream/stream.el:
* packages/stream/tests/stream-tests.el: Update.
---
stream.el | 6 +++---
tests/stream-tests.el | 27 ++++++++++-----------------
2 files changed, 13 insertions(+), 20 deletions(-)
diff --git a/stream.el b/stream.el
index 375999f..5506f78 100644
--- a/stream.el
+++ b/stream.el
@@ -4,7 +4,7 @@
;; Author: Nicolas Petton <nicolas@petton.fr>
;; Keywords: stream, laziness, sequences
-;; Version: 1.1.0
+;; Version: 2.0.0
;; Package-Requires: ((emacs "25"))
;; Package: stream
@@ -142,7 +142,7 @@ range is infinite."
(stream-range (+ start step) end step))))
-(defun stream-p (stream)
+(defun streamp (stream)
"Return non-nil if STREAM is a stream, nil otherwise."
(and (consp stream)
(eq (car stream) stream--identifier)))
@@ -171,7 +171,7 @@ range is infinite."
(cl-generic-make-generalizer
11
(lambda (name)
- `(when (stream-p ,name)
+ `(when (streamp ,name)
'stream))
(lambda (tag)
(when (eq tag 'stream)
diff --git a/tests/stream-tests.el b/tests/stream-tests.el
index a59aced..a7cb727 100644
--- a/tests/stream-tests.el
+++ b/tests/stream-tests.el
@@ -36,11 +36,11 @@
(reverse result)))
(ert-deftest stream-empty-test ()
- (should (stream-p (stream-empty)))
+ (should (streamp (stream-empty)))
(should (stream-empty-p (stream-empty))))
(ert-deftest stream-make-test ()
- (should (stream-p (stream-range)))
+ (should (streamp (stream-range)))
(should (not (stream-empty-p (stream-range))))) ;; Should use stream-list or
something
(ert-deftest stream-first-test ()
@@ -76,7 +76,7 @@
(should (= first 2))
(should (= third 4))
;; The rest of the stream shouldn't be consumed
- (should (stream-p rest))
+ (should (streamp rest))
(should (= 5 (stream-first rest)))
(should (= 6 (stream-first (stream-rest rest))))
(should (stream-empty-p (stream-rest (stream-rest rest))))))
@@ -86,21 +86,21 @@
)
(ert-deftest stream-seq-into-test ()
- (should (stream-p (seq-into (stream-empty) 'stream)))
- (should (stream-p (seq-into '(2 4 5) 'stream)))
+ (should (streamp (seq-into (stream-empty) 'stream)))
+ (should (streamp (seq-into '(2 4 5) 'stream)))
(should (= 2 (stream-first (seq-into '(2 4 5) 'stream))))
(should (null (seq-into (stream-empty) 'list)))
(should (equal '(0 1 2 3 4 5 6 7 8 9) (seq-into (stream-range 0 10) 'list))))
(ert-deftest stream-seq-take-test ()
- (should (stream-p (seq-take (stream-range) 2)))
+ (should (streamp (seq-take (stream-range) 2)))
(should (= 0 (stream-first (seq-take (stream-range) 2))))
(should (= 1 (stream-first (stream-rest (seq-take (stream-range) 2)))))
(should (null (stream-first (stream-rest (stream-rest (seq-take
(stream-range) 2))))))
(should (stream-empty-p (stream-rest (stream-rest (seq-take (stream-range)
2))))))
(ert-deftest stream-seq-drop-test ()
- (should (stream-p (seq-drop (stream-range) 2)))
+ (should (streamp (seq-drop (stream-range) 2)))
(should (= 2 (stream-first (seq-drop (stream-range) 2))))
(should (= 3 (stream-first (stream-rest (seq-drop (stream-range) 2)))))
(should (stream-empty-p (seq-drop (stream-empty) 2))))
@@ -108,14 +108,14 @@
(ert-deftest stream-seq-take-while-test ()
(let ((stream (stream '(1 3 2 5))))
(should (stream-empty-p (seq-take-while #'identity (stream-empty))))
- (should (stream-p (seq-take-while #'oddp stream)))
+ (should (streamp (seq-take-while #'oddp stream)))
(should (= 1 (stream-first (seq-take-while #'oddp stream))))
(should (= 3 (stream-first (stream-rest (seq-take-while #'oddp stream)))))
(should (stream-empty-p (stream-rest (stream-rest (seq-take-while #'oddp
stream)))))))
(ert-deftest stream-seq-drop-while-test ()
(let ((stream (stream '(1 3 2 5))))
- (should (stream-p (seq-drop-while #'evenp stream)))
+ (should (streamp (seq-drop-while #'evenp stream)))
(should (stream-empty-p (seq-drop-while #'identity (stream-empty))))
(should (= 2 (stream-first (seq-drop-while #'evenp stream))))
(should (= 5 (stream-first (stream-rest (seq-drop-while #'evenp stream)))))
@@ -142,7 +142,7 @@
(should (stream-empty-p (stream-rest (stream-rest (seq-filter #'oddp
(stream-range 0 4)))))))
(ert-deftest stream-seq-copy-test ()
- (should (stream-p (seq-copy (stream-range))))
+ (should (streamp (seq-copy (stream-range))))
(should (= 0 (stream-first (seq-copy (stream-range)))))
(should (= 1 (stream-first (stream-rest (seq-copy (stream-range)))))))
@@ -168,12 +168,5 @@
(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
- [elpa] externals/stream 8239285 13/36: Fix compliler warnings in stream-tests.el, (continued)
- [elpa] externals/stream 8239285 13/36: Fix compliler warnings in stream-tests.el, Stefan Monnier, 2020/12/01
- [elpa] externals/stream 18146ee 04/36: * packages/stream/stream.el: Update stream.el to v 1.1.0., Stefan Monnier, 2020/12/01
- [elpa] externals/stream 01fc059 03/36: * packages/stream/stream.el: Update stream to v 1.0.1., Stefan Monnier, 2020/12/01
- [elpa] externals/stream 1a61660 11/36: * stream.el: Implement `seqp' instead of `seq-p', Stefan Monnier, 2020/12/01
- [elpa] externals/stream 5762f78 21/36: Pinpoint semantics of `seq-subseq's implementation for streams, Stefan Monnier, 2020/12/01
- [elpa] externals/stream f384660 22/36: Add systematic tests against bogus element generation, Stefan Monnier, 2020/12/01
- [elpa] externals/stream ec86243 24/36: Some details in the documentation, Stefan Monnier, 2020/12/01
- [elpa] externals/stream b0c8949 28/36: Implement `seq-mapn' method for streams, Stefan Monnier, 2020/12/01
- [elpa] externals/stream 7874a25 05/36: * packages/stream/tests/stream-tests.el: New tests., Stefan Monnier, 2020/12/01
- [elpa] externals/stream d77b733 09/36: Update stream.el to v2.0.2., Stefan Monnier, 2020/12/01
- [elpa] externals/stream fbe7ebd 06/36: Update stream.el to version 2.0.0,
Stefan Monnier <=
- [elpa] externals/stream a8aa25c 07/36: * packages/stream/stream.el: Update stream.el to version 2.0.1., Stefan Monnier, 2020/12/01
- [elpa] externals/stream 2b2ba28 14/36: update stream.el to the latest version, Stefan Monnier, 2020/12/01
- [elpa] externals/stream 00e523f 15/36: Add stream stream-delay and stream-of-directory-files, Stefan Monnier, 2020/12/01
- [elpa] externals/stream ac42cc1 18/36: Fix some quoting problems in doc strings, Stefan Monnier, 2020/12/01
- [elpa] externals/stream a36469b 17/36: Add some more basic stream operations, Stefan Monnier, 2020/12/01
- [elpa] externals/stream f8e6639 20/36: * stream/stream.el (stream--generalizer): Accept more arguments, Stefan Monnier, 2020/12/01
- [elpa] externals/stream 873ee4e 23/36: Fix errors detected by tests added in last commit, Stefan Monnier, 2020/12/01
- [elpa] externals/stream cbf7e78 30/36: * stream/stream-x.el: Update copyright, Stefan Monnier, 2020/12/01
- [elpa] externals/stream f1fce5e 35/36: * packages/stream/stream.el: Bump version to 2.2.5., Stefan Monnier, 2020/12/01
- [elpa] externals/stream 05b20e1 25/36: Add file "stream-x.el" to the stream package, Stefan Monnier, 2020/12/01