diff options
Diffstat (limited to '')
-rw-r--r-- | tests/recurrence-id.scm | 30 |
1 files changed, 0 insertions, 30 deletions
diff --git a/tests/recurrence-id.scm b/tests/recurrence-id.scm deleted file mode 100644 index 601b0f71..00000000 --- a/tests/recurrence-id.scm +++ /dev/null @@ -1,30 +0,0 @@ -(((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))) |