aboutsummaryrefslogtreecommitdiff
path: root/tests/srfi-19-alt-compare.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@hornquist.se>2020-02-19 01:28:02 +0100
committerHugo Hörnquist <hugo@hornquist.se>2020-02-19 01:28:02 +0100
commitd6b1dddeb255053332b5059f4b5dcfa7112d96e9 (patch)
treeb04dc76029148cda72744bf9ff6dfd56d74f63f2 /tests/srfi-19-alt-compare.scm
parentFreed datetime from its srfi-19 prison. (diff)
downloadcalp-d6b1dddeb255053332b5059f4b5dcfa7112d96e9.tar.gz
calp-d6b1dddeb255053332b5059f4b5dcfa7112d96e9.tar.xz
Update tests to remove srfi-19.
Diffstat (limited to 'tests/srfi-19-alt-compare.scm')
-rw-r--r--tests/srfi-19-alt-compare.scm67
1 files changed, 0 insertions, 67 deletions
diff --git a/tests/srfi-19-alt-compare.scm b/tests/srfi-19-alt-compare.scm
deleted file mode 100644
index 5ee7e63d..00000000
--- a/tests/srfi-19-alt-compare.scm
+++ /dev/null
@@ -1,67 +0,0 @@
-(((srfi srfi-19 alt)
- 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)))