diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-03 19:15:27 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-03 19:15:27 +0100 |
commit | 033cf78ee6102ca104b04460abfbbfa84cf22cbf (patch) | |
tree | c6462a533bbe143430cf90cdfa00b7c8a810746f /tests/srfi-19-alt-compare.scm | |
parent | Work. (diff) | |
download | calp-033cf78ee6102ca104b04460abfbbfa84cf22cbf.tar.gz calp-033cf78ee6102ca104b04460abfbbfa84cf22cbf.tar.xz |
Fix date<=.
Diffstat (limited to '')
-rw-r--r-- | tests/srfi-19-alt-compare.scm | 44 |
1 files changed, 44 insertions, 0 deletions
diff --git a/tests/srfi-19-alt-compare.scm b/tests/srfi-19-alt-compare.scm new file mode 100644 index 00000000..fb88361b --- /dev/null +++ b/tests/srfi-19-alt-compare.scm @@ -0,0 +1,44 @@ +(((srfi srfi-19 alt) + date + date< date<= + date> date>= + )) + +(test-assert "date< empty" + (date<)) + +(test-assert "date< single" + (date< #2020-01-10)) + +(test-assert "date< double" + (date< #2020-01-10 #2020-01-11)) + +(test-assert "date< tripple" + (date< #2020-01-10 #2020-01-11 #2020-01-12)) + +(test-assert "date< tripple negate" + (not (date< #2020-01-10 #2020-01-12 #2020-01-11))) + +(test-assert "date<= empty" + (date<=)) + +(test-assert "date<= single" + (date<= #2020-01-10)) + +(test-assert "date<= double" + (date<= #2020-01-10 #2020-01-11)) + +(test-assert "date<=" + (not (date<= #2020-01-01 #2018-05-15 #2020-01-31))) + +(test-assert "date<= equal" + (date<= #2018-05-15 #2018-05-15)) + +(test-assert "date<" + (not (date< #2020-01-01 #2018-05-15 #2020-01-31))) + +(test-assert "date>" + (not (date> #2020-01-31 #2018-05-15 #2020-01-01 ))) + +(test-assert "date>=" + (not (date>= #2020-01-31 #2018-05-15 #2020-01-01))) |