blob: babb2218ad78d5fcb28a1d2486ddd846507b719a (
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
50
|
;;; Commentary:
;; Basic tests of xcal convertion.
;; Currently only checks that events survive a round trip.
;;; Code:
(((vcomponent xcal parse) sxcal->vcomponent)
((vcomponent xcal output) vcomponent->sxcal)
((vcomponent ical parse) parse-calendar)
((calp util) ->)
((vcomponent base)
parameters prop* children)
)
;;; Some different types, same parameters
(define ev
(call-with-input-string "BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//calparse-test
BEGIN:VEVENT
SUMMARY:Test event
DTSTART;TZID=Europe/Stockholm:20200625T133000
DTEND:20200625T143000Z
DTSTAMP:20200609T131418Z
UID:1
SEQUENCE:0
CREATED:20200609T081725Z
DESCRIPTION:Short description
LAST-MODIFIED:20200609T081725Z
STATUS;X-TEST-PARAM=10:CONFIRMED
TRANSP:OPAQUE
END:VEVENT
END:VCALENDAR"
parse-calendar))
(define twice-converted
(-> ev
vcomponent->sxcal
sxcal->vcomponent))
;;; NOTE both these tests may fail since neither properties nor parameters are ordered sorted.
(test-equal "c->x & c->x->c->x"
(vcomponent->sxcal ev)
(vcomponent->sxcal twice-converted))
(test-equal "xcal parameters"
'((X-TEST-PARAM "10"))
(parameters (prop* (car (children twice-converted))
'STATUS)))
|