diff options
| author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-19 01:28:02 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-19 01:28:02 +0100 |
| commit | d6b1dddeb255053332b5059f4b5dcfa7112d96e9 (patch) | |
| tree | b04dc76029148cda72744bf9ff6dfd56d74f63f2 /tests/srfi-srfi-19-alt-util.scm | |
| parent | Freed datetime from its srfi-19 prison. (diff) | |
| download | calp-d6b1dddeb255053332b5059f4b5dcfa7112d96e9.tar.gz calp-d6b1dddeb255053332b5059f4b5dcfa7112d96e9.tar.xz | |
Update tests to remove srfi-19.
Diffstat (limited to 'tests/srfi-srfi-19-alt-util.scm')
| -rw-r--r-- | tests/srfi-srfi-19-alt-util.scm | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/tests/srfi-srfi-19-alt-util.scm b/tests/srfi-srfi-19-alt-util.scm deleted file mode 100644 index 7343bfa3..00000000 --- a/tests/srfi-srfi-19-alt-util.scm +++ /dev/null @@ -1,25 +0,0 @@ -(((srfi srfi-19 alt) date time) - ((srfi srfi-19 alt 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))) |