From fddc0373388f1468f99f60ae57278325c5dcea0d Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 11 Feb 2020 22:16:36 +0100 Subject: Hopefully fixed date+ bugs. --- tests/srfi-srfi-19-alt-util.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) create mode 100644 tests/srfi-srfi-19-alt-util.scm (limited to 'tests') 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)))) -- cgit v1.2.3