diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-22 14:52:08 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-22 14:52:08 +0200 |
| commit | 1e8171b95e146b18c2c173445bd34dc3cacee3af (patch) | |
| tree | 2aae1a3faecbfd685ad1d7aea5f349a7c3dd0184 /tests/unit/util/srfi-41-util.scm | |
| parent | Add tests for sxml namespaced + fix 'root-element'. (diff) | |
| download | calp-1e8171b95e146b18c2c173445bd34dc3cacee3af.tar.gz calp-1e8171b95e146b18c2c173445bd34dc3cacee3af.tar.xz | |
Test work.
Diffstat (limited to '')
| -rw-r--r-- | tests/unit/util/srfi-41-util.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/tests/unit/util/srfi-41-util.scm b/tests/unit/util/srfi-41-util.scm index 79c607c5..8e1b79d8 100644 --- a/tests/unit/util/srfi-41-util.scm +++ b/tests/unit/util/srfi-41-util.scm @@ -4,13 +4,19 @@ ;;; Code: (define-module (test srfi-41-util) - :use-module (srfi srfi-64) - :use-module (srfi srfi-88) + :use-module ((srfi srfi-1) :select (circular-list)) :use-module (srfi srfi-41 util) :use-module (srfi srfi-41) - :use-module ((srfi srfi-1) :select (circular-list)) + :use-module (srfi srfi-64) + :use-module (srfi srfi-71) + :use-module (srfi srfi-88) :use-module ((ice-9 sandbox) :select (call-with-time-limit))) +(test-group "stream car+cdr" + (let ((a d (stream-car+cdr (stream 1 2 3)))) + (test-equal "car" 1 a) + (test-equal "cdr" '(2 3) (stream->list d)))) + (test-equal "Finite stream" '((0 1 2) (3 4 5) (6 7 8) (9)) (let ((strm (stream-paginate (stream 0 1 2 3 4 5 6 7 8 9) 3))) |