blob: b529cf161b5e349755dbe273c67552acd7bfebbc (
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
|
(define-module (test data-formats ical)
:use-module (srfi srfi-64)
:use-module (srfi srfi-88)
:use-module (vcomponent formats ical)
)
;; (serialize)
;; (deserialize)
(call-with-input-string "BEGIN:VCALENDAR
VERSION:2.0
PRODID:-//PIMUTILS.ORG//NONSGML khal / icalendar //EN
BEGIN:VTIMEZONE
TZID:Europe/Stockholm
BEGIN:DAYLIGHT
DTSTART;VALUE=DATE-TIME:20180325T030000
TZNAME:CEST
TZOFFSETFROM:+0100
TZOFFSETTO:+0200
END:DAYLIGHT
BEGIN:STANDARD
DTSTART;VALUE=DATE-TIME:20181028T020000
TZNAME:CET
TZOFFSETFROM:+0200
TZOFFSETTO:+0100
END:STANDARD
END:VTIMEZONE
BEGIN:VEVENT
SUMMARY:Backhäfv
DTSTART;TZID=Europe/Stockholm;VALUE=DATE-TIME:20180907T170000
DTEND;TZID=Europe/Stockholm;VALUE=DATE-TIME:20180907T180000
DTSTAMP;VALUE=DATE-TIME:20180907T154223Z
UID:ZSGUP6BTM52UV42SEWBICHSS63V8DYQX5TSZ
SEQUENCE:0
END:VEVENT
END:VCALENDAR" deserialize)
|
