From 8f5dcbea9756ce3bc8e8efe8dd623e68ba058fa0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Tue, 11 Feb 2020 22:02:20 +0100 Subject: Add tests for time<. --- tests/srfi-19-alt-compare.scm | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) (limited to 'tests') 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)) -- cgit v1.2.3