From 6166728792c65ff1d24238330734bfc0c7ecf829 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 6 Sep 2020 19:01:32 +0200 Subject: Add test for Reccurence-ID with different DTSTART type. --- tests/recurrence-id.scm | 30 ++++++++++++++++++++++++++++++ 1 file changed, 30 insertions(+) create mode 100644 tests/recurrence-id.scm (limited to 'tests') diff --git a/tests/recurrence-id.scm b/tests/recurrence-id.scm new file mode 100644 index 00000000..601b0f71 --- /dev/null +++ b/tests/recurrence-id.scm @@ -0,0 +1,30 @@ +(((srfi srfi-41) stream->list) + ((vcomponent) parse-calendar) + ((vcomponent recurrence) generate-recurrence-set) + ((guile) format) + ) + +(define uid (symbol->string (gensym "areallyuniqueid"))) + +(define ev + (call-with-input-string + (format #f "BEGIN:VCALENDAR +BEGIN:VEVENT +SUMMARY:Changing type on Recurrence-id. +UID:~a +DTSTART;VALUE=DATE:20090127 +END:VEVENT +BEGIN:VEVENT +UID:~a +SUMMARY:Changing type on Recurrence-id. +DTSTART;TZID=Europe/Stockholm:20100127T120000 +RECURRENCE-ID;VALUE=DATE:20100127 +SUMMARY:This instance only has a time component +END:VEVENT +END:VCALENDAR" + uid uid) + parse-calendar)) + + +(test-assert "Changing type on Recurrence id." + (stream->list 10 (generate-recurrence-set ev))) -- cgit v1.2.3