From e822f7b81245c919eda8bd8ad4b482df075e0508 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Fri, 24 Jan 2020 20:21:41 +0100
Subject: Start of new date structures.

---
 tests/srfi-19-alt.scm | 5 +++++
 1 file changed, 5 insertions(+)
 create mode 100644 tests/srfi-19-alt.scm

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

diff --git a/tests/srfi-19-alt.scm b/tests/srfi-19-alt.scm
new file mode 100644
index 00000000..1fad2fa5
--- /dev/null
+++ b/tests/srfi-19-alt.scm
@@ -0,0 +1,5 @@
+((srfi srfi-19 alt) date+ date- date)
+
+(test-equal #2020-02-28 (date- #2020-03-05 (date day: 6)))
+(test-equal #2020-02-29 (date- #2020-03-05 (date day: 5)))
+(test-equal #2020-03-01 (date- #2020-03-05 (date day: 4)))
-- 
cgit v1.2.3