diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-05-17 01:32:25 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-05-17 01:32:25 +0200 |
| commit | 6c21cb7b669a6778e57f7043c15446a38a1fc614 (patch) | |
| tree | d4df2d192ab5c6b6f8a4c4bd8e3e6b0b4b36d8b8 /tests | |
| parent | Terminal reload events when jumping to today. (diff) | |
| parent | Long events now wholeday per default. (diff) | |
| download | calp-6c21cb7b669a6778e57f7043c15446a38a1fc614.tar.gz calp-6c21cb7b669a6778e57f7043c15446a38a1fc614.tar.xz | |
Merge branch 'jcal'
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)) |