From 2bc3b1dcfd8a8107e2b2fb3b39273815f80ff869 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Fri, 31 Jan 2020 11:33:06 +0100 Subject: Work. --- tests/srfi-19-alt.scm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'tests/srfi-19-alt.scm') 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))) + -- cgit v1.2.3