From b72f967841fec5f34e6c806bfe8b5824e6d6a2c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 30 Jul 2020 23:15:43 +0200
Subject: Add datetime-.

---
 tests/datetime.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'tests/datetime.scm')

diff --git a/tests/datetime.scm b/tests/datetime.scm
index 0cbb130d..463feb95 100644
--- a/tests/datetime.scm
+++ b/tests/datetime.scm
@@ -85,6 +85,16 @@
   (datetime+ (datetime date: #2020-01-01)
              (datetime time: #10:00:00)))
 
+(test-equal
+    #2020-10-09T14:00:00
+  (datetime- #2020-10-10T00:00:00
+             (datetime time: #10:00:00)))
+
+(test-equal
+    #2020-09-24T14:00:00
+  (datetime- #2020-10-10T00:00:00
+             #0000-00-15T10:00:00))
+
 
 (test-equal #2020-03-10
   (date+ #2020-03-01
-- 
cgit v1.2.3