[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/stream 8239285 13/36: Fix compliler warnings in stream-
From: |
Stefan Monnier |
Subject: |
[elpa] externals/stream 8239285 13/36: Fix compliler warnings in stream-tests.el |
Date: |
Tue, 1 Dec 2020 17:22:49 -0500 (EST) |
branch: externals/stream
commit 823928597219aba28bf9a0badc08f343fbaaa7e5
Author: Nicolas Petton <nicolas@petton.fr>
Commit: Nicolas Petton <nicolas@petton.fr>
Fix compliler warnings in stream-tests.el
* packages/stream/tests/stream-tests.el: Require cl-lib, use seqp, cl-oddp
and
cl-evenp instead of seq-p, oddp and evenp.
---
tests/stream-tests.el | 31 ++++++++++++++++---------------
1 file changed, 16 insertions(+), 15 deletions(-)
diff --git a/tests/stream-tests.el b/tests/stream-tests.el
index 0033ed7..1997202 100644
--- a/tests/stream-tests.el
+++ b/tests/stream-tests.el
@@ -26,6 +26,7 @@
(require 'ert)
(require 'stream)
+(require 'cl-lib)
(defun stream-to-list (stream)
"Eagerly traverse STREAM and return a list of its elements."
@@ -51,8 +52,8 @@
(should (= 4 (stream-first (stream-rest (stream-range 3)))))
(should (= 5 (stream-first (stream-rest (stream-rest (stream-range 3)))))))
-(ert-deftest stream-seq-p-test ()
- (should (seq-p (stream-range))))
+(ert-deftest stream-seqp-test ()
+ (should (seqp (stream-range))))
(ert-deftest stream-seq-elt-test ()
(should (null (seq-elt (stream-empty) 0)))
@@ -108,18 +109,18 @@
(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 (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)))))))
+ (should (streamp (seq-take-while #'cl-oddp stream)))
+ (should (= 1 (stream-first (seq-take-while #'cl-oddp stream))))
+ (should (= 3 (stream-first (stream-rest (seq-take-while #'cl-oddp
stream)))))
+ (should (stream-empty-p (stream-rest (stream-rest (seq-take-while
#'cl-oddp stream)))))))
(ert-deftest stream-seq-drop-while-test ()
(let ((stream (stream '(1 3 2 5))))
- (should (streamp (seq-drop-while #'evenp stream)))
+ (should (streamp (seq-drop-while #'cl-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)))))
- (should (stream-empty-p (stream-rest (stream-rest (seq-drop-while #'evenp
stream)))))))
+ (should (= 2 (stream-first (seq-drop-while #'cl-evenp stream))))
+ (should (= 5 (stream-first (stream-rest (seq-drop-while #'cl-evenp
stream)))))
+ (should (stream-empty-p (stream-rest (stream-rest (seq-drop-while
#'cl-evenp stream)))))))
(ert-deftest stream-seq-map-test ()
(should (stream-empty-p (seq-map #'- (stream-empty))))
@@ -135,11 +136,11 @@
(should (equal result '(4 3 2 1 0)))))
(ert-deftest stream-seq-filter-test ()
- (should (stream-empty-p (seq-filter #'oddp (stream-empty))))
- (should (stream-empty-p (seq-filter #'oddp (stream-range 0 4 2))))
- (should (= 1 (stream-first (seq-filter #'oddp (stream-range 0 4)))))
- (should (= 3 (stream-first (stream-rest (seq-filter #'oddp (stream-range 0
4))))))
- (should (stream-empty-p (stream-rest (stream-rest (seq-filter #'oddp
(stream-range 0 4)))))))
+ (should (stream-empty-p (seq-filter #'cl-oddp (stream-empty))))
+ (should (stream-empty-p (seq-filter #'cl-oddp (stream-range 0 4 2))))
+ (should (= 1 (stream-first (seq-filter #'cl-oddp (stream-range 0 4)))))
+ (should (= 3 (stream-first (stream-rest (seq-filter #'cl-oddp (stream-range
0 4))))))
+ (should (stream-empty-p (stream-rest (stream-rest (seq-filter #'cl-oddp
(stream-range 0 4)))))))
(ert-deftest stream-seq-copy-test ()
(should (streamp (seq-copy (stream-range))))
- [elpa] branch externals/stream created (now 0055487), Stefan Monnier, 2020/12/01
- [elpa] externals/stream 6a47b33 02/36: * packages/stream/stream.el: Require Emacs 25, Stefan Monnier, 2020/12/01
- [elpa] externals/stream 6bc197b 01/36: Add stream.el to ELPA, Stefan Monnier, 2020/12/01
- [elpa] externals/stream c92d3b4 08/36: * packages/stream/stream.el: Update to version 2.0.2., Stefan Monnier, 2020/12/01
- [elpa] externals/stream 11f19ab 10/36: Update stream.el to v2.0.5, Stefan Monnier, 2020/12/01
- [elpa] externals/stream 8af657a 12/36: * packages/stream/stream.el (streamp): Tiny optimization., Stefan Monnier, 2020/12/01
- [elpa] externals/stream 8239285 13/36: Fix compliler warnings in stream-tests.el,
Stefan Monnier <=
- [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, 2020/12/01