From 561f252368f08db5d15688dacc7f0f3bd30a64e7 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 13 Jan 2021 22:43:19 +0100
Subject: Clarify event-length/clamped test.

---
 tests/vcomponent-datetime.scm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/tests/vcomponent-datetime.scm b/tests/vcomponent-datetime.scm
index f6071ebc..0bc584f6 100644
--- a/tests/vcomponent-datetime.scm
+++ b/tests/vcomponent-datetime.scm
@@ -18,10 +18,15 @@ DTEND:20200401T100000
 END:VEVENT"
                parse-calendar))
 
+;; |-----------------| test interval
+;;                 |----------| event interval
 
 (test-equal "Correct clamping"
-  (datetime time: (time hour: 7))
-  (event-length/clamped #2020-03-23 #2020-03-29 ev))
+  (datetime time: (time hour: 7)) ; 2020-03-29T17:00 - 2020-03-30T00:00
+  (event-length/clamped 
+    #2020-03-23 ; a time way before the start of the event
+    #2020-03-29 ; a time slightly after the end of the event
+    ev))
 
 (define utc-ev (call-with-input-string
                "BEGIN:VEVENT
-- 
cgit v1.2.3