blob: 498862ea2aaf48cc3573eb0719a24ba25ee3bce6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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))))
|