diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 01:09:09 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-02-01 13:20:59 +0100 |
| commit | aa9e98374f79ffcc7f017744c22fae67110cdb50 (patch) | |
| tree | f73515bbcaf75cb878b43037bede0527d52639c6 /tests | |
| parent | Fix small-cal highlight for "remote" dates. (diff) | |
| download | calp-aa9e98374f79ffcc7f017744c22fae67110cdb50.tar.gz calp-aa9e98374f79ffcc7f017744c22fae67110cdb50.tar.xz | |
Handle types of xcal rrule.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/recurrence-simple.scm | 24 |
1 files changed, 23 insertions, 1 deletions
diff --git a/tests/recurrence-simple.scm b/tests/recurrence-simple.scm index 9c78977b..166fa349 100644 --- a/tests/recurrence-simple.scm +++ b/tests/recurrence-simple.scm @@ -12,7 +12,8 @@ ((guile) format) ((vcomponent) parse-calendar) - ((vcomponent recurrence) + ((vcomponent xcal parse) sxcal->vcomponent) + ((vcomponent recurrence) parse-recurrence-rule make-recur-rule generate-recurrence-set)) @@ -238,3 +239,24 @@ END:VCALENDAR" (test-assert "Changing type on Recurrence id." (stream->list 10 (generate-recurrence-set ev))) + +;;; Earlier I failed to actually parse the recurrence parts, in short, 1 ≠ "1". + +(define ev + (sxcal->vcomponent + '(vevent + (properties + (summary (text "reptest")) + (dtend (date-time "2021-01-13T02:00:00")) + (dtstart (date-time "2021-01-13T01:00:00")) + (uid (text "RNW198S6QANQPV1C4FDNFH6ER1VZX6KXEYNB")) + (rrule (recur (freq "WEEKLY") + (interval "1") + (wkst "MO"))) + (dtstamp (date-time "2021-01-13T01:42:20Z")) + (sequence (integer "0"))) + (components)))) + +(test-assert + "Check that recurrence rule commint from xcal also works" + (generate-recurrence-set ev)) |