diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-31 11:33:06 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-01-31 11:33:06 +0100 |
commit | 2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869 (patch) | |
tree | 78da51a4f033f8431460658b2066a484a91c55a7 /tests | |
parent | Delete old srfi-19 extensions. (diff) | |
download | calp-2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869.tar.gz calp-2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869.tar.xz |
Work.
Diffstat (limited to '')
-rw-r--r-- | tests/srfi-19-alt.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/tests/srfi-19-alt.scm b/tests/srfi-19-alt.scm index 9e03bf53..887af4fa 100644 --- a/tests/srfi-19-alt.scm +++ b/tests/srfi-19-alt.scm @@ -102,6 +102,21 @@ (test-assert "date< tripple negate" (not (date< #2020-01-10 #2020-01-12 #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 #2020-01-01)) + +(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))) + (test-assert (datetime- #2018-01-17T10:00:00 #2018-01-17T08:00:00)) @@ -111,3 +126,4 @@ (datetime<=? (datetime time: (time hour: 24)) (datetime- #2018-01-17T10:00:00 #2018-01-17T08:00:00))) + |