From d7e25e73839936ba2400664c960686d6f82496a6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 11 Apr 2022 20:16:27 +0200
Subject: Merge all datetime tests to one file.

---
 tests/test/datetime-compare.scm | 145 ----------------------------------------
 1 file changed, 145 deletions(-)
 delete mode 100644 tests/test/datetime-compare.scm

(limited to 'tests/test/datetime-compare.scm')

diff --git a/tests/test/datetime-compare.scm b/tests/test/datetime-compare.scm
deleted file mode 100644
index 0d07c52f..00000000
--- a/tests/test/datetime-compare.scm
+++ /dev/null
@@ -1,145 +0,0 @@
-;;; Commentary:
-;; Tests that all ordering predicates for dates,
-;; times, and datetimes hold.
-;;; Code:
-
-(define-module (test datetime-compare)
-  :use-module (srfi srfi-64)
-  :use-module (srfi srfi-88)
-  :use-module ((datetime)
-               :select (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))
-
-;; In UTC+2 (CEST) the below datetime overflows into midnight the following
-;; day. Earlier versions of this program only looked at the time component
-(test-assert
-  "date/-time< TZ overflow"
-  (date/-time<
-    #2020-04-05
-    (datetime
-      date:
-      #2020-04-05
-      time:
-      #22:00:00
-      tz:
-      "UTC")))
-
-(test-assert
-  "date/-time< time-only"
-  (date/-time<
-    #00:00:00
-    #10:00:00))
-
-(test-assert
-  (not (date/-time<
-         #2018-11-30T08:10:00
-         #2014-04-13T16:00:00)))
-
-
-- 
cgit v1.2.3