diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-11 22:16:36 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-11 22:16:36 +0100 |
commit | fddc0373388f1468f99f60ae57278325c5dcea0d (patch) | |
tree | 47038e07bec4746a507cc52b621cd51895695aa4 /tests/srfi-srfi-19-alt-util.scm | |
parent | Add tests for time<. (diff) | |
download | calp-fddc0373388f1468f99f60ae57278325c5dcea0d.tar.gz calp-fddc0373388f1468f99f60ae57278325c5dcea0d.tar.xz |
Hopefully fixed date+ bugs.
Diffstat (limited to '')
-rw-r--r-- | tests/srfi-srfi-19-alt-util.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/srfi-srfi-19-alt-util.scm b/tests/srfi-srfi-19-alt-util.scm new file mode 100644 index 00000000..498862ea --- /dev/null +++ b/tests/srfi-srfi-19-alt-util.scm @@ -0,0 +1,16 @@ +(((srfi srfi-19 alt) date time) + ((srfi srfi-19 alt util) month-stream) + ((srfi srfi-41) stream->list stream-take + )) + +(test-assert "jan->dec" + (stream->list (stream-take 11 (month-stream #2020-01-01)))) + +(test-assert "dec->jan" + (stream->list (stream-take 2 (month-stream #2020-12-01)))) + +(test-assert "dec->feb" + (stream->list (stream-take 3 (month-stream #2020-12-01)))) + +(test-assert "20 months" + (stream->list (stream-take 20 (month-stream #2020-01-01)))) |