diff options
Diffstat (limited to 'tests/vcomponent-datetime.scm')
| -rw-r--r-- | tests/vcomponent-datetime.scm | 14 |
1 files changed, 12 insertions, 2 deletions
diff --git a/tests/vcomponent-datetime.scm b/tests/vcomponent-datetime.scm index f7bb00f4..0bc584f6 100644 --- a/tests/vcomponent-datetime.scm +++ b/tests/vcomponent-datetime.scm @@ -1,3 +1,8 @@ +;;; Commentary: +;; Tests that event-clamping (checking how long part of an event +;; overlaps another time span) works. +;;; Code: + (((datetime) date time datetime) @@ -13,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 |