blob: 49d1711f306bc1a8f8416fed08cea0e0bca44f8a (
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
|
;;; 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 create) :select (vevent)))
(define ev
(vevent
dtstart: #2020-03-29T17:00:00
dtend: #2020-04-01T10:00:00))
;; |-----------------| 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
(vevent
dtstart: #2020-03-29T15:00:00Z
dtend: #2020-04-01T08:00:00Z))
(test-equal
"Correct clamping UTC"
(datetime time: (time hour: 7))
(event-length/clamped
#2020-03-23
#2020-03-29
ev))
|