diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-11 22:02:20 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2020-02-11 22:02:20 +0100 |
commit | 8f5dcbea9756ce3bc8e8efe8dd623e68ba058fa0 (patch) | |
tree | 68f7a2961d938ddac34aee10067cd306546b6ffc /tests/srfi-19-alt-compare.scm | |
parent | Fix FATAL bug in time<. (diff) | |
download | calp-8f5dcbea9756ce3bc8e8efe8dd623e68ba058fa0.tar.gz calp-8f5dcbea9756ce3bc8e8efe8dd623e68ba058fa0.tar.xz |
Add tests for time<.
Diffstat (limited to '')
-rw-r--r-- | tests/srfi-19-alt-compare.scm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/tests/srfi-19-alt-compare.scm b/tests/srfi-19-alt-compare.scm index fb88361b..7cf99bcd 100644 --- a/tests/srfi-19-alt-compare.scm +++ b/tests/srfi-19-alt-compare.scm @@ -1,7 +1,10 @@ (((srfi srfi-19 alt) date + datetime time date< date<= date> date>= + date/-time< + time< )) (test-assert "date< empty" @@ -42,3 +45,21 @@ (test-assert "date>=" (not (date>= #2020-01-31 #2018-05-15 #2020-01-01))) + +(test-assert "time< simple" + (time< #05:00:00 #10:00:00)) + +(test-assert "time<" + (time< (time) #10:00:00)) + +(test-assert "date/-time<" + (date/-time< #2020-01-01 #2020-01-02)) + +(test-assert "not date/-time<" + (not (date/-time< #2020-01-01 #2020-01-01))) + +(test-assert "date/-time< only other dt" + (date/-time< #2020-01-01 #2020-01-02T10:00:00)) + +(test-assert "date/-time< other dt, same date" + (date/-time< #2020-01-01 #2020-01-01T10:00:00)) |