From 42c0219bb66319f52e449617539e968067fbc05b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 29 Mar 2020 17:03:33 +0200
Subject: Update tests.

---
 tests/datetime.scm            |  3 +--
 tests/vcomponent-datetime.scm | 30 ++++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+), 2 deletions(-)
 create mode 100644 tests/vcomponent-datetime.scm

(limited to 'tests')

diff --git a/tests/datetime.scm b/tests/datetime.scm
index f1883c36..b678edad 100644
--- a/tests/datetime.scm
+++ b/tests/datetime.scm
@@ -96,8 +96,7 @@
   (time- #10:20:30 #10:20:30))
 
 (test-equal "datetime-difference self"
-  ;; #0000-00-00T00:00:00
-  0
+  #0000-00-00T00:00:00
   (datetime-difference (datetime date: #2020-01-01) (datetime date: #2020-01-01)))
 
 ;; (test-assert
diff --git a/tests/vcomponent-datetime.scm b/tests/vcomponent-datetime.scm
new file mode 100644
index 00000000..f7bb00f4
--- /dev/null
+++ b/tests/vcomponent-datetime.scm
@@ -0,0 +1,30 @@
+(((datetime)
+  date time
+  datetime)
+ ((vcomponent datetime)
+  event-length/clamped)
+ ((vcomponent) parse-calendar)
+ )
+
+(define ev (call-with-input-string
+               "BEGIN:VEVENT
+DTSTART:20200329T170000
+DTEND:20200401T100000
+END:VEVENT"
+               parse-calendar))
+
+
+(test-equal "Correct clamping"
+  (datetime time: (time hour: 7))
+  (event-length/clamped #2020-03-23 #2020-03-29 ev))
+
+(define utc-ev (call-with-input-string
+               "BEGIN:VEVENT
+DTSTART:20200329T150000Z
+DTEND:20200401T080000Z
+END:VEVENT"
+               parse-calendar))
+
+(test-equal "Correct clamping UTC"
+  (datetime time: (time hour: 7))
+  (event-length/clamped #2020-03-23 #2020-03-29 ev))
-- 
cgit v1.2.3