diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:50:51 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-13 22:50:51 +0100 |
commit | 641278c624a3a0c06856656255f648f2cf4f6a92 (patch) | |
tree | 49c47c4c61dd0704e89cfd75681bc16f171e7ad5 /tests/recurrence-id.scm | |
parent | Add debug buttons in popup for dumping xcal and jcal. (diff) | |
parent | Document (vcompenent control). (diff) | |
download | calp-641278c624a3a0c06856656255f648f2cf4f6a92.tar.gz calp-641278c624a3a0c06856656255f648f2cf4f6a92.tar.xz |
Merge branch 'doc' into jcal
Diffstat (limited to 'tests/recurrence-id.scm')
-rw-r--r-- | tests/recurrence-id.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/recurrence-id.scm b/tests/recurrence-id.scm index 601b0f71..be58d924 100644 --- a/tests/recurrence-id.scm +++ b/tests/recurrence-id.scm @@ -1,3 +1,9 @@ +;;; Commentary: +;; Tests that exceptions (in the recurrence-id meaning) +;; in recurrence sets are handled correctly. +;; TODO Is however far from done. +;;; Code: + (((srfi srfi-41) stream->list) ((vcomponent) parse-calendar) ((vcomponent recurrence) generate-recurrence-set) @@ -6,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 |