diff options
Diffstat (limited to 'tests')
| -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))) + |