diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 19:01:32 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-09-06 19:01:32 +0200 |
commit | 6166728792c65ff1d24238330734bfc0c7ecf829 (patch) | |
tree | d6fbfb0506db5d116d0f0fe9d950398074179972 /tests | |
parent | Add some type signatures. (diff) | |
download | calp-6166728792c65ff1d24238330734bfc0c7ecf829.tar.gz calp-6166728792c65ff1d24238330734bfc0c7ecf829.tar.xz |
Add test for Reccurence-ID with different DTSTART type.
Diffstat (limited to '')
-rw-r--r-- | tests/recurrence-id.scm | 30 |
1 files changed, 30 insertions, 0 deletions
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))) |