blob: 073a70ae7ad4b0e17e0ca439f7cb5930be63860a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
;;; Commentary:
;; Tests that event-clamping (checking how long part of an event
;; overlaps another time span) works.
;;; Code:
(define-module (test vcomponent-datetime)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module ((datetime) :select (date time datetime))
:use-module ((vcomponent datetime) :select (event-length/clamped))
:use-module ((vcomponent formats ical parse) :select (parse-calendar)))
(define ev
(call-with-input-string
"BEGIN:VEVENT
DTSTART:20200329T170000
DTEND:20200401T100000
END:VEVENT"
parse-calendar))
;; |-----------------| test interval
;; |----------| event interval
(test-equal
"Correct clamping"
(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
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))
|