From 45c0a45604579e80d4d21adf86c755315ab583b4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Mon, 3 Feb 2020 19:55:51 +0100
Subject: Add tests for {date,time}- self.

---
 tests/srfi-19-alt.scm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'tests/srfi-19-alt.scm')

diff --git a/tests/srfi-19-alt.scm b/tests/srfi-19-alt.scm
index bebd104d..1a351992 100644
--- a/tests/srfi-19-alt.scm
+++ b/tests/srfi-19-alt.scm
@@ -1,4 +1,5 @@
 (((srfi srfi-19 alt) date+ date-
+  time+ time-
   year month day
   date time
   datetime
@@ -86,6 +87,13 @@
          (date day: 5)))
 
 
+(test-equal "time- self"
+  #00:00:00
+  (time- #10:20:30 #10:20:30))
+
+(test-equal "date- self"
+  #0000-00-00
+  (date- #2020-01-01 #2020-01-01))
 
 ;; (test-assert
 ;;     (datetime- #2018-01-17T10:00:00
-- 
cgit v1.2.3