diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:43:19 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:49:05 +0100 |
| commit | 561f252368f08db5d15688dacc7f0f3bd30a64e7 (patch) | |
| tree | 0a89371f8b5667d3f920256e40c639e5a796da92 | |
| parent | Add commentary to all test files. (diff) | |
| download | calp-561f252368f08db5d15688dacc7f0f3bd30a64e7.tar.gz calp-561f252368f08db5d15688dacc7f0f3bd30a64e7.tar.xz | |
Clarify event-length/clamped test.
| -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 |