diff options
Diffstat (limited to 'tests/datetime-compare.scm')
-rw-r--r-- | tests/datetime-compare.scm | 67 |
1 files changed, 67 insertions, 0 deletions
diff --git a/tests/datetime-compare.scm b/tests/datetime-compare.scm new file mode 100644 index 00000000..0548ac25 --- /dev/null +++ b/tests/datetime-compare.scm @@ -0,0 +1,67 @@ +(((datetime) + date + datetime time + date< date<= + date> date>= + date/-time< + time< + )) + +(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))) + +(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)) + +(test-assert (not (date/-time< #2018-11-30T08:10:00 #2014-04-13T16:00:00))) |