From d6b1dddeb255053332b5059f4b5dcfa7112d96e9 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 19 Feb 2020 01:28:02 +0100 Subject: Update tests to remove srfi-19. --- tests/datetime-util.scm | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) create mode 100644 tests/datetime-util.scm (limited to 'tests/datetime-util.scm') diff --git a/tests/datetime-util.scm b/tests/datetime-util.scm new file mode 100644 index 00000000..6e5ce170 --- /dev/null +++ b/tests/datetime-util.scm @@ -0,0 +1,25 @@ +(((datetime) date time) + ((datetime util) month-stream in-date-range?) + ((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)))) + +(test-equal "Correct months" + (list #2020-02-01 #2020-03-01 #2020-04-01 #2020-05-01 #2020-06-01 #2020-07-01 #2020-08-01 #2020-09-01 #2020-10-01 #2020-11-01 #2020-12-01 #2021-01-01) + + (stream->list (stream-take 12 (month-stream #2020-02-01)))) + +(test-assert "in-date-range?" + (not ((in-date-range? #2020-01-01 #2020-02-29) + #2018-02-02))) -- cgit v1.2.3