diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:44:40 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:49:05 +0100 |
commit | 28acaa453d6bf60acb8397b87fc9676239a70ae5 (patch) | |
tree | 13d0f0eab688f7a35340ce142fb2a645a48ae823 /tests | |
parent | Add additional parse-endpoint-string tests. (diff) | |
download | calp-28acaa453d6bf60acb8397b87fc9676239a70ae5.tar.gz calp-28acaa453d6bf60acb8397b87fc9676239a70ae5.tar.xz |
Add example xcal.
Diffstat (limited to '')
-rw-r--r-- | tests/recurrence-id.scm | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/tests/recurrence-id.scm b/tests/recurrence-id.scm index 8af978c0..be58d924 100644 --- a/tests/recurrence-id.scm +++ b/tests/recurrence-id.scm @@ -12,6 +12,23 @@ (define uid (symbol->string (gensym "areallyuniqueid"))) +;; TODO standardize vcomponents for tests as xcal, for example: +`(vcalendar + (children + (vevent + (properties + (summary (text "Changing type on Recurrence-id.")) + (uid (text ,uid)) + (dtstart (date "20090127")))) + (vevent + (properties + (summary (text "Changing type on Recurrence-id.")) + (uid (text ,uid)) + (dtstart (params (TZID "Europe/Stockholm")) + (date-time "20100127T120000")) + (recurrence-id (date "20100127")) + (summary "This instance only has a time component"))))) + (define ev (call-with-input-string (format #f "BEGIN:VCALENDAR |