(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)