1 files changed, 30 insertions, 0 deletions
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))