diff options
Diffstat (limited to 'tests/vcomponent-datetime.scm')
| -rw-r--r-- | tests/vcomponent-datetime.scm | 9 |
1 files 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 |