diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-13 01:10:32 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-06-13 01:15:16 +0200 |
| commit | c2f1cdaeed0d605e964aefa9a3a27667fd96fa1e (patch) | |
| tree | a628d5e93c59e9f9d118e76691f87bf0022cdab4 /tests | |
| parent | Date, time & datetime now display themself in read-able forms. (diff) | |
| download | calp-c2f1cdaeed0d605e964aefa9a3a27667fd96fa1e.tar.gz calp-c2f1cdaeed0d605e964aefa9a3a27667fd96fa1e.tar.xz | |
Add generated recurrence sets for tests.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/recurrence.scm | 958 | ||||
| -rwxr-xr-x | tests/run-tests.scm | 1 |
2 files changed, 901 insertions, 58 deletions
diff --git a/tests/recurrence.scm b/tests/recurrence.scm index cd863bdf..8617cc3e 100644 --- a/tests/recurrence.scm +++ b/tests/recurrence.scm @@ -6,18 +6,30 @@ ;;; Code: (((vcomponent recurrence parse) parse-recurrence-rule) + ((vcomponent recurrence generate) generate-recurrence-set) ((vcomponent recurrence display) format-recurrence-rule) - ((vcomponent base) make-vcomponent attr attr*) - ((datetime) parse-ics-datetime) + ((vcomponent recurrence internal) count until) + ((vcomponent base) make-vcomponent attr attr* extract) + ((datetime) parse-ics-datetime datetime time date) ((util) -> mod!) - ((srfi srfi-88) keyword->string) ((guile) set!) - ) + ((srfi srfi-41) stream->list) + ((srfi srfi-88) keyword->string)) ;; Examples copied from RFC5545 (define (run-test comp) - (test-equal (attr comp 'SUMMARY) + + (test-equal (string-append "RSET: " (attr comp 'SUMMARY)) + (attr comp 'X-SET) + (let ((r (generate-recurrence-set comp))) + (map (extract 'DTSTART) + (if (or (until (attr comp 'RRULE)) + (count (attr comp 'RRULE))) + (stream->list r) + (stream->list 20 r))))) + + (test-equal (string-append "STR: " (attr comp 'SUMMARY)) (attr comp 'X-SUMMARY) (format-recurrence-rule (attr comp 'RRULE)))) @@ -49,179 +61,822 @@ summary: "Daily for 10 occurrences" dtstart: "19970902T090000" rrule: "FREQ=DAILY;COUNT=10" - x-summary: "dagligen, totalt 10 gånger") + x-summary: "dagligen, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-03 #:time #09:00:00) + (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-09-05 #:time #09:00:00) + (datetime #:date #1997-09-06 #:time #09:00:00) + (datetime #:date #1997-09-07 #:time #09:00:00) + (datetime #:date #1997-09-08 #:time #09:00:00) + (datetime #:date #1997-09-09 #:time #09:00:00) + (datetime #:date #1997-09-10 #:time #09:00:00) + (datetime #:date #1997-09-11 #:time #09:00:00))) (vevent summary: "Daily until December 24, 1997" dtstart: "19970902T090000" rrule: "FREQ=DAILY;UNTIL=19971224T000000Z" - x-summary: "dagligen, till och med den 24 december, 1997 kl. 0:00") + x-summary: "dagligen, till och med den 24 december, 1997 kl. 0:00" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-03 #:time #09:00:00) + (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-09-05 #:time #09:00:00) + (datetime #:date #1997-09-06 #:time #09:00:00) + (datetime #:date #1997-09-07 #:time #09:00:00) + (datetime #:date #1997-09-08 #:time #09:00:00) + (datetime #:date #1997-09-09 #:time #09:00:00) + (datetime #:date #1997-09-10 #:time #09:00:00) + (datetime #:date #1997-09-11 #:time #09:00:00) + (datetime #:date #1997-09-12 #:time #09:00:00) + (datetime #:date #1997-09-13 #:time #09:00:00) + (datetime #:date #1997-09-14 #:time #09:00:00) + (datetime #:date #1997-09-15 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-17 #:time #09:00:00) + (datetime #:date #1997-09-18 #:time #09:00:00) + (datetime #:date #1997-09-19 #:time #09:00:00) + (datetime #:date #1997-09-20 #:time #09:00:00) + (datetime #:date #1997-09-21 #:time #09:00:00) + (datetime #:date #1997-09-22 #:time #09:00:00) + (datetime #:date #1997-09-23 #:time #09:00:00) + (datetime #:date #1997-09-24 #:time #09:00:00) + (datetime #:date #1997-09-25 #:time #09:00:00) + (datetime #:date #1997-09-26 #:time #09:00:00) + (datetime #:date #1997-09-27 #:time #09:00:00) + (datetime #:date #1997-09-28 #:time #09:00:00) + (datetime #:date #1997-09-29 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-01 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00) + (datetime #:date #1997-10-03 #:time #09:00:00) + (datetime #:date #1997-10-04 #:time #09:00:00) + (datetime #:date #1997-10-05 #:time #09:00:00) + (datetime #:date #1997-10-06 #:time #09:00:00) + (datetime #:date #1997-10-07 #:time #09:00:00) + (datetime #:date #1997-10-08 #:time #09:00:00) + (datetime #:date #1997-10-09 #:time #09:00:00) + (datetime #:date #1997-10-10 #:time #09:00:00) + (datetime #:date #1997-10-11 #:time #09:00:00) + (datetime #:date #1997-10-12 #:time #09:00:00) + (datetime #:date #1997-10-13 #:time #09:00:00) + (datetime #:date #1997-10-14 #:time #09:00:00) + (datetime #:date #1997-10-15 #:time #09:00:00) + (datetime #:date #1997-10-16 #:time #09:00:00) + (datetime #:date #1997-10-17 #:time #09:00:00) + (datetime #:date #1997-10-18 #:time #09:00:00) + (datetime #:date #1997-10-19 #:time #09:00:00) + (datetime #:date #1997-10-20 #:time #09:00:00) + (datetime #:date #1997-10-21 #:time #09:00:00) + (datetime #:date #1997-10-22 #:time #09:00:00) + (datetime #:date #1997-10-23 #:time #09:00:00) + (datetime #:date #1997-10-24 #:time #09:00:00) + (datetime #:date #1997-10-25 #:time #09:00:00) + (datetime #:date #1997-10-26 #:time #09:00:00) + (datetime #:date #1997-10-27 #:time #09:00:00) + (datetime #:date #1997-10-28 #:time #09:00:00) + (datetime #:date #1997-10-29 #:time #09:00:00) + (datetime #:date #1997-10-30 #:time #09:00:00) + (datetime #:date #1997-10-31 #:time #09:00:00) + (datetime #:date #1997-11-01 #:time #09:00:00) + (datetime #:date #1997-11-02 #:time #09:00:00) + (datetime #:date #1997-11-03 #:time #09:00:00) + (datetime #:date #1997-11-04 #:time #09:00:00) + (datetime #:date #1997-11-05 #:time #09:00:00) + (datetime #:date #1997-11-06 #:time #09:00:00) + (datetime #:date #1997-11-07 #:time #09:00:00) + (datetime #:date #1997-11-08 #:time #09:00:00) + (datetime #:date #1997-11-09 #:time #09:00:00) + (datetime #:date #1997-11-10 #:time #09:00:00) + (datetime #:date #1997-11-11 #:time #09:00:00) + (datetime #:date #1997-11-12 #:time #09:00:00) + (datetime #:date #1997-11-13 #:time #09:00:00) + (datetime #:date #1997-11-14 #:time #09:00:00) + (datetime #:date #1997-11-15 #:time #09:00:00) + (datetime #:date #1997-11-16 #:time #09:00:00) + (datetime #:date #1997-11-17 #:time #09:00:00) + (datetime #:date #1997-11-18 #:time #09:00:00) + (datetime #:date #1997-11-19 #:time #09:00:00) + (datetime #:date #1997-11-20 #:time #09:00:00) + (datetime #:date #1997-11-21 #:time #09:00:00) + (datetime #:date #1997-11-22 #:time #09:00:00) + (datetime #:date #1997-11-23 #:time #09:00:00) + (datetime #:date #1997-11-24 #:time #09:00:00) + (datetime #:date #1997-11-25 #:time #09:00:00) + (datetime #:date #1997-11-26 #:time #09:00:00) + (datetime #:date #1997-11-27 #:time #09:00:00) + (datetime #:date #1997-11-28 #:time #09:00:00) + (datetime #:date #1997-11-29 #:time #09:00:00) + (datetime #:date #1997-11-30 #:time #09:00:00) + (datetime #:date #1997-12-01 #:time #09:00:00) + (datetime #:date #1997-12-02 #:time #09:00:00) + (datetime #:date #1997-12-03 #:time #09:00:00) + (datetime #:date #1997-12-04 #:time #09:00:00) + (datetime #:date #1997-12-05 #:time #09:00:00) + (datetime #:date #1997-12-06 #:time #09:00:00) + (datetime #:date #1997-12-07 #:time #09:00:00) + (datetime #:date #1997-12-08 #:time #09:00:00) + (datetime #:date #1997-12-09 #:time #09:00:00) + (datetime #:date #1997-12-10 #:time #09:00:00) + (datetime #:date #1997-12-11 #:time #09:00:00) + (datetime #:date #1997-12-12 #:time #09:00:00) + (datetime #:date #1997-12-13 #:time #09:00:00) + (datetime #:date #1997-12-14 #:time #09:00:00) + (datetime #:date #1997-12-15 #:time #09:00:00) + (datetime #:date #1997-12-16 #:time #09:00:00) + (datetime #:date #1997-12-17 #:time #09:00:00) + (datetime #:date #1997-12-18 #:time #09:00:00) + (datetime #:date #1997-12-19 #:time #09:00:00) + (datetime #:date #1997-12-20 #:time #09:00:00) + (datetime #:date #1997-12-21 #:time #09:00:00) + (datetime #:date #1997-12-22 #:time #09:00:00) + (datetime #:date #1997-12-23 #:time #09:00:00))) (vevent summary: "Every other day - forever" dtstart: "19970902T090000" rrule: "FREQ=DAILY;INTERVAL=2" - x-summary: "varannan dag") + x-summary: "varannan dag" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-09-06 #:time #09:00:00) + (datetime #:date #1997-09-08 #:time #09:00:00) + (datetime #:date #1997-09-10 #:time #09:00:00) + (datetime #:date #1997-09-12 #:time #09:00:00) + (datetime #:date #1997-09-14 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-18 #:time #09:00:00) + (datetime #:date #1997-09-20 #:time #09:00:00) + (datetime #:date #1997-09-22 #:time #09:00:00) + (datetime #:date #1997-09-24 #:time #09:00:00) + (datetime #:date #1997-09-26 #:time #09:00:00) + (datetime #:date #1997-09-28 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00) + (datetime #:date #1997-10-04 #:time #09:00:00) + (datetime #:date #1997-10-06 #:time #09:00:00) + (datetime #:date #1997-10-08 #:time #09:00:00) + (datetime #:date #1997-10-10 #:time #09:00:00))) (vevent summary: "Every 10 days, 5 occurrences" dtstart: "19970902T090000" rrule: "FREQ=DAILY;INTERVAL=10;COUNT=5" - x-summary: "var tionde dag, totalt 5 gånger") + x-summary: "var tionde dag, totalt 5 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-12 #:time #09:00:00) + (datetime #:date #1997-09-22 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00) + (datetime #:date #1997-10-12 #:time #09:00:00))) (vevent summary: "Every day in January, for 3 years (alt 1)" dtstart: "19980101T090000" rrule: "FREQ=YEARLY;UNTIL=20000131T140000Z;BYMONTH=1;BYDAY=SU,MO,TU,WE,TH,FR,SA" - x-summary: "varje lördag, fredag, torsdag, onsdag, tisdag, måndag & söndag i januari, årligen, till och med den 31 januari, 2000 kl. 14:00") + x-summary: "varje lördag, fredag, torsdag, onsdag, tisdag, måndag & söndag i januari, årligen, till och med den 31 januari, 2000 kl. 14:00" + x-set: (list (datetime #:date #1998-01-01 #:time #09:00:00) + (datetime #:date #1998-01-02 #:time #09:00:00) + (datetime #:date #1998-01-03 #:time #09:00:00) + (datetime #:date #1998-01-04 #:time #09:00:00) + (datetime #:date #1998-01-05 #:time #09:00:00) + (datetime #:date #1998-01-06 #:time #09:00:00) + (datetime #:date #1998-01-07 #:time #09:00:00) + (datetime #:date #1998-01-08 #:time #09:00:00) + (datetime #:date #1998-01-09 #:time #09:00:00) + (datetime #:date #1998-01-10 #:time #09:00:00) + (datetime #:date #1998-01-11 #:time #09:00:00) + (datetime #:date #1998-01-12 #:time #09:00:00) + (datetime #:date #1998-01-13 #:time #09:00:00) + (datetime #:date #1998-01-14 #:time #09:00:00) + (datetime #:date #1998-01-15 #:time #09:00:00) + (datetime #:date #1998-01-16 #:time #09:00:00) + (datetime #:date #1998-01-17 #:time #09:00:00) + (datetime #:date #1998-01-18 #:time #09:00:00) + (datetime #:date #1998-01-19 #:time #09:00:00) + (datetime #:date #1998-01-20 #:time #09:00:00) + (datetime #:date #1998-01-21 #:time #09:00:00) + (datetime #:date #1998-01-22 #:time #09:00:00) + (datetime #:date #1998-01-23 #:time #09:00:00) + (datetime #:date #1998-01-24 #:time #09:00:00) + (datetime #:date #1998-01-25 #:time #09:00:00) + (datetime #:date #1998-01-26 #:time #09:00:00) + (datetime #:date #1998-01-27 #:time #09:00:00) + (datetime #:date #1998-01-28 #:time #09:00:00) + (datetime #:date #1998-01-29 #:time #09:00:00) + (datetime #:date #1998-01-30 #:time #09:00:00) + (datetime #:date #1998-01-31 #:time #09:00:00) + (datetime #:date #1999-01-01 #:time #09:00:00) + (datetime #:date #1999-01-02 #:time #09:00:00) + (datetime #:date #1999-01-03 #:time #09:00:00) + (datetime #:date #1999-01-04 #:time #09:00:00) + (datetime #:date #1999-01-05 #:time #09:00:00) + (datetime #:date #1999-01-06 #:time #09:00:00) + (datetime #:date #1999-01-07 #:time #09:00:00) + (datetime #:date #1999-01-08 #:time #09:00:00) + (datetime #:date #1999-01-09 #:time #09:00:00) + (datetime #:date #1999-01-10 #:time #09:00:00) + (datetime #:date #1999-01-11 #:time #09:00:00) + (datetime #:date #1999-01-12 #:time #09:00:00) + (datetime #:date #1999-01-13 #:time #09:00:00) + (datetime #:date #1999-01-14 #:time #09:00:00) + (datetime #:date #1999-01-15 #:time #09:00:00) + (datetime #:date #1999-01-16 #:time #09:00:00) + (datetime #:date #1999-01-17 #:time #09:00:00) + (datetime #:date #1999-01-18 #:time #09:00:00) + (datetime #:date #1999-01-19 #:time #09:00:00) + (datetime #:date #1999-01-20 #:time #09:00:00) + (datetime #:date #1999-01-21 #:time #09:00:00) + (datetime #:date #1999-01-22 #:time #09:00:00) + (datetime #:date #1999-01-23 #:time #09:00:00) + (datetime #:date #1999-01-24 #:time #09:00:00) + (datetime #:date #1999-01-25 #:time #09:00:00) + (datetime #:date #1999-01-26 #:time #09:00:00) + (datetime #:date #1999-01-27 #:time #09:00:00) + (datetime #:date #1999-01-28 #:time #09:00:00) + (datetime #:date #1999-01-29 #:time #09:00:00) + (datetime #:date #1999-01-30 #:time #09:00:00) + (datetime #:date #1999-01-31 #:time #09:00:00) + (datetime #:date #2000-01-01 #:time #09:00:00) + (datetime #:date #2000-01-02 #:time #09:00:00) + (datetime #:date #2000-01-03 #:time #09:00:00) + (datetime #:date #2000-01-04 #:time #09:00:00) + (datetime #:date #2000-01-05 #:time #09:00:00) + (datetime #:date #2000-01-06 #:time #09:00:00) + (datetime #:date #2000-01-07 #:time #09:00:00) + (datetime #:date #2000-01-08 #:time #09:00:00) + (datetime #:date #2000-01-09 #:time #09:00:00) + (datetime #:date #2000-01-10 #:time #09:00:00) + (datetime #:date #2000-01-11 #:time #09:00:00) + (datetime #:date #2000-01-12 #:time #09:00:00) + (datetime #:date #2000-01-13 #:time #09:00:00) + (datetime #:date #2000-01-14 #:time #09:00:00) + (datetime #:date #2000-01-15 #:time #09:00:00) + (datetime #:date #2000-01-16 #:time #09:00:00) + (datetime #:date #2000-01-17 #:time #09:00:00) + (datetime #:date #2000-01-18 #:time #09:00:00) + (datetime #:date #2000-01-19 #:time #09:00:00) + (datetime #:date #2000-01-20 #:time #09:00:00) + (datetime #:date #2000-01-21 #:time #09:00:00) + (datetime #:date #2000-01-22 #:time #09:00:00) + (datetime #:date #2000-01-23 #:time #09:00:00) + (datetime #:date #2000-01-24 #:time #09:00:00) + (datetime #:date #2000-01-25 #:time #09:00:00) + (datetime #:date #2000-01-26 #:time #09:00:00) + (datetime #:date #2000-01-27 #:time #09:00:00) + (datetime #:date #2000-01-28 #:time #09:00:00) + (datetime #:date #2000-01-29 #:time #09:00:00) + (datetime #:date #2000-01-30 #:time #09:00:00) + (datetime #:date #2000-01-31 #:time #09:00:00))) (vevent summary: "Every day in January, for 3 years (alt 2)" dtstart: "19980101T090000" - rrule: "FREQ=DAILY;UNTIL=20000131T140000Z;BYMONTH=1" - x-summary: "dagligen, till och med den 31 januari, 2000 kl. 14:00") + rrule: "FREQ=DAILY;UNTIL=20000131T140000Z;BYMONTH=1" + x-summary: "dagligen, till och med den 31 januari, 2000 kl. 14:00" + x-set: (list (datetime #:date #1998-01-01 #:time #09:00:00) + (datetime #:date #1998-01-02 #:time #09:00:00) + (datetime #:date #1998-01-03 #:time #09:00:00) + (datetime #:date #1998-01-04 #:time #09:00:00) + (datetime #:date #1998-01-05 #:time #09:00:00) + (datetime #:date #1998-01-06 #:time #09:00:00) + (datetime #:date #1998-01-07 #:time #09:00:00) + (datetime #:date #1998-01-08 #:time #09:00:00) + (datetime #:date #1998-01-09 #:time #09:00:00) + (datetime #:date #1998-01-10 #:time #09:00:00) + (datetime #:date #1998-01-11 #:time #09:00:00) + (datetime #:date #1998-01-12 #:time #09:00:00) + (datetime #:date #1998-01-13 #:time #09:00:00) + (datetime #:date #1998-01-14 #:time #09:00:00) + (datetime #:date #1998-01-15 #:time #09:00:00) + (datetime #:date #1998-01-16 #:time #09:00:00) + (datetime #:date #1998-01-17 #:time #09:00:00) + (datetime #:date #1998-01-18 #:time #09:00:00) + (datetime #:date #1998-01-19 #:time #09:00:00) + (datetime #:date #1998-01-20 #:time #09:00:00) + (datetime #:date #1998-01-21 #:time #09:00:00) + (datetime #:date #1998-01-22 #:time #09:00:00) + (datetime #:date #1998-01-23 #:time #09:00:00) + (datetime #:date #1998-01-24 #:time #09:00:00) + (datetime #:date #1998-01-25 #:time #09:00:00) + (datetime #:date #1998-01-26 #:time #09:00:00) + (datetime #:date #1998-01-27 #:time #09:00:00) + (datetime #:date #1998-01-28 #:time #09:00:00) + (datetime #:date #1998-01-29 #:time #09:00:00) + (datetime #:date #1998-01-30 #:time #09:00:00) + (datetime #:date #1998-01-31 #:time #09:00:00) + (datetime #:date #1999-01-01 #:time #09:00:00) + (datetime #:date #1999-01-02 #:time #09:00:00) + (datetime #:date #1999-01-03 #:time #09:00:00) + (datetime #:date #1999-01-04 #:time #09:00:00) + (datetime #:date #1999-01-05 #:time #09:00:00) + (datetime #:date #1999-01-06 #:time #09:00:00) + (datetime #:date #1999-01-07 #:time #09:00:00) + (datetime #:date #1999-01-08 #:time #09:00:00) + (datetime #:date #1999-01-09 #:time #09:00:00) + (datetime #:date #1999-01-10 #:time #09:00:00) + (datetime #:date #1999-01-11 #:time #09:00:00) + (datetime #:date #1999-01-12 #:time #09:00:00) + (datetime #:date #1999-01-13 #:time #09:00:00) + (datetime #:date #1999-01-14 #:time #09:00:00) + (datetime #:date #1999-01-15 #:time #09:00:00) + (datetime #:date #1999-01-16 #:time #09:00:00) + (datetime #:date #1999-01-17 #:time #09:00:00) + (datetime #:date #1999-01-18 #:time #09:00:00) + (datetime #:date #1999-01-19 #:time #09:00:00) + (datetime #:date #1999-01-20 #:time #09:00:00) + (datetime #:date #1999-01-21 #:time #09:00:00) + (datetime #:date #1999-01-22 #:time #09:00:00) + (datetime #:date #1999-01-23 #:time #09:00:00) + (datetime #:date #1999-01-24 #:time #09:00:00) + (datetime #:date #1999-01-25 #:time #09:00:00) + (datetime #:date #1999-01-26 #:time #09:00:00) + (datetime #:date #1999-01-27 #:time #09:00:00) + (datetime #:date #1999-01-28 #:time #09:00:00) + (datetime #:date #1999-01-29 #:time #09:00:00) + (datetime #:date #1999-01-30 #:time #09:00:00) + (datetime #:date #1999-01-31 #:time #09:00:00) + (datetime #:date #2000-01-01 #:time #09:00:00) + (datetime #:date #2000-01-02 #:time #09:00:00) + (datetime #:date #2000-01-03 #:time #09:00:00) + (datetime #:date #2000-01-04 #:time #09:00:00) + (datetime #:date #2000-01-05 #:time #09:00:00) + (datetime #:date #2000-01-06 #:time #09:00:00) + (datetime #:date #2000-01-07 #:time #09:00:00) + (datetime #:date #2000-01-08 #:time #09:00:00) + (datetime #:date #2000-01-09 #:time #09:00:00) + (datetime #:date #2000-01-10 #:time #09:00:00) + (datetime #:date #2000-01-11 #:time #09:00:00) + (datetime #:date #2000-01-12 #:time #09:00:00) + (datetime #:date #2000-01-13 #:time #09:00:00) + (datetime #:date #2000-01-14 #:time #09:00:00) + (datetime #:date #2000-01-15 #:time #09:00:00) + (datetime #:date #2000-01-16 #:time #09:00:00) + (datetime #:date #2000-01-17 #:time #09:00:00) + (datetime #:date #2000-01-18 #:time #09:00:00) + (datetime #:date #2000-01-19 #:time #09:00:00) + (datetime #:date #2000-01-20 #:time #09:00:00) + (datetime #:date #2000-01-21 #:time #09:00:00) + (datetime #:date #2000-01-22 #:time #09:00:00) + (datetime #:date #2000-01-23 #:time #09:00:00) + (datetime #:date #2000-01-24 #:time #09:00:00) + (datetime #:date #2000-01-25 #:time #09:00:00) + (datetime #:date #2000-01-26 #:time #09:00:00) + (datetime #:date #2000-01-27 #:time #09:00:00) + (datetime #:date #2000-01-28 #:time #09:00:00) + (datetime #:date #2000-01-29 #:time #09:00:00) + (datetime #:date #2000-01-30 #:time #09:00:00) + (datetime #:date #2000-01-31 #:time #09:00:00))) (vevent summary: "Weekly for 10 occurrences" dtstart: "19970902T090000" rrule: "FREQ=WEEKLY;COUNT=10" - x-summary: "varje vecka, totalt 10 gånger") + x-summary: "varje vecka, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-09 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-23 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-07 #:time #09:00:00) + (datetime #:date #1997-10-14 #:time #09:00:00) + (datetime #:date #1997-10-21 #:time #09:00:00) + (datetime #:date #1997-10-28 #:time #09:00:00) + (datetime #:date #1997-11-04 #:time #09:00:00))) (vevent summary: "Weekly until December 24, 1997" dtstart: "19970902T090000" rrule: "FREQ=WEEKLY;UNTIL=19971224T000000Z" - x-summary: "varje vecka, till och med den 24 december, 1997 kl. 0:00") + x-summary: "varje vecka, till och med den 24 december, 1997 kl. 0:00" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-09 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-23 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-07 #:time #09:00:00) + (datetime #:date #1997-10-14 #:time #09:00:00) + (datetime #:date #1997-10-21 #:time #09:00:00) + (datetime #:date #1997-10-28 #:time #09:00:00) + (datetime #:date #1997-11-04 #:time #09:00:00) + (datetime #:date #1997-11-11 #:time #09:00:00) + (datetime #:date #1997-11-18 #:time #09:00:00) + (datetime #:date #1997-11-25 #:time #09:00:00) + (datetime #:date #1997-12-02 #:time #09:00:00) + (datetime #:date #1997-12-09 #:time #09:00:00) + (datetime #:date #1997-12-16 #:time #09:00:00) + (datetime #:date #1997-12-23 #:time #09:00:00))) (vevent summary: "Every other week - forever" dtstart: "19970902T090000" rrule: "FREQ=WEEKLY;INTERVAL=2;WKST=SU" - x-summary: "varannan vecka") + x-summary: "varannan vecka" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-14 #:time #09:00:00) + (datetime #:date #1997-10-28 #:time #09:00:00) + (datetime #:date #1997-11-11 #:time #09:00:00) + (datetime #:date #1997-11-25 #:time #09:00:00) + (datetime #:date #1997-12-09 #:time #09:00:00) + (datetime #:date #1997-12-23 #:time #09:00:00) + (datetime #:date #1998-01-06 #:time #09:00:00) + (datetime #:date #1998-01-20 #:time #09:00:00) + (datetime #:date #1998-02-03 #:time #09:00:00) + (datetime #:date #1998-02-17 #:time #09:00:00) + (datetime #:date #1998-03-03 #:time #09:00:00) + (datetime #:date #1998-03-17 #:time #09:00:00) + (datetime #:date #1998-03-31 #:time #09:00:00) + (datetime #:date #1998-04-14 #:time #09:00:00) + (datetime #:date #1998-04-28 #:time #09:00:00) + (datetime #:date #1998-05-12 #:time #09:00:00) + (datetime #:date #1998-05-26 #:time #09:00:00))) (vevent summary: "Weekly on Tuesday and Thursday for five weeks (alt 1)" dtstart: "19970902T090000" rrule: "FREQ=WEEKLY;UNTIL=19971007T000000Z;WKST=SU;BYDAY=TU,TH" - x-summary: "varje tisdag & torsdag, till och med den 07 oktober, 1997 kl. 0:00") + x-summary: "varje tisdag & torsdag, till och med den 07 oktober, 1997 kl. 0:00" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-09-09 #:time #09:00:00) + (datetime #:date #1997-09-11 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-18 #:time #09:00:00) + (datetime #:date #1997-09-23 #:time #09:00:00) + (datetime #:date #1997-09-25 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00))) (vevent summary: "Weekly on Tuesday and Thursday for five weeks (alt 2)" dtstart: "19970902T090000" rrule: "FREQ=WEEKLY;COUNT=10;WKST=SU;BYDAY=TU,TH" - x-summary: "varje tisdag & torsdag, totalt 10 gånger") + x-summary: "varje tisdag & torsdag, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-09-09 #:time #09:00:00) + (datetime #:date #1997-09-11 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-18 #:time #09:00:00) + (datetime #:date #1997-09-23 #:time #09:00:00) + (datetime #:date #1997-09-25 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00))) (vevent summary: "Every other week on Monday, Wednesday, and Friday until December 24, 1997, starting on Monday, September 1, 1997:" dtstart: "19970901T090000" rrule: "FREQ=WEEKLY;INTERVAL=2;UNTIL=19971224T000000Z;WKST=SU;BYDAY=MO,WE,FR" - x-summary: "varannan måndag, onsdag & fredag, till och med den 24 december, 1997 kl. 0:00") + x-summary: "varannan måndag, onsdag & fredag, till och med den 24 december, 1997 kl. 0:00" + x-set: (list (datetime #:date #1997-09-01 #:time #09:00:00) + (datetime #:date #1997-09-03 #:time #09:00:00) + (datetime #:date #1997-09-05 #:time #09:00:00) + (datetime #:date #1997-09-15 #:time #09:00:00) + (datetime #:date #1997-09-17 #:time #09:00:00) + (datetime #:date #1997-09-19 #:time #09:00:00) + (datetime #:date #1997-09-29 #:time #09:00:00) + (datetime #:date #1997-10-01 #:time #09:00:00) + (datetime #:date #1997-10-03 #:time #09:00:00) + (datetime #:date #1997-10-13 #:time #09:00:00) + (datetime #:date #1997-10-15 #:time #09:00:00) + (datetime #:date #1997-10-17 #:time #09:00:00) + (datetime #:date #1997-10-27 #:time #09:00:00) + (datetime #:date #1997-10-29 #:time #09:00:00) + (datetime #:date #1997-10-31 #:time #09:00:00) + (datetime #:date #1997-11-10 #:time #09:00:00) + (datetime #:date #1997-11-12 #:time #09:00:00) + (datetime #:date #1997-11-14 #:time #09:00:00) + (datetime #:date #1997-11-24 #:time #09:00:00) + (datetime #:date #1997-11-26 #:time #09:00:00) + (datetime #:date #1997-11-28 #:time #09:00:00) + (datetime #:date #1997-12-08 #:time #09:00:00) + (datetime #:date #1997-12-10 #:time #09:00:00) + (datetime #:date #1997-12-12 #:time #09:00:00) + (datetime #:date #1997-12-22 #:time #09:00:00))) ;; TOOD tittta närmare vad de egentligen vill ha här (vevent summary: "Every other week on Tuesday and Thursday, for 8 occurrences" dtstart: "19970902T090000" rrule: "FREQ=WEEKLY;INTERVAL=2;COUNT=8;WKST=SU;BYDAY=TU,TH" - x-summary: "varannan tisdag & torsdag, totalt 8 gånger") + x-summary: "varannan tisdag & torsdag, totalt 8 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-09-16 #:time #09:00:00) + (datetime #:date #1997-09-18 #:time #09:00:00) + (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00) + (datetime #:date #1997-10-14 #:time #09:00:00) + (datetime #:date #1997-10-16 #:time #09:00:00))) (vevent ; 10 summary: "Monthly on the first Friday for 10 occurrences" dtstart: "19970905T090000" rrule: "FREQ=MONTHLY;COUNT=10;BYDAY=1FR" - x-summary: "första fredagen varje månad, totalt 10 gånger") + x-summary: "första fredagen varje månad, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-05 #:time #09:00:00) + (datetime #:date #1997-12-05 #:time #09:00:00) + (datetime #:date #1998-06-05 #:time #09:00:00) + (datetime #:date #1999-02-05 #:time #09:00:00) + (datetime #:date #1999-03-05 #:time #09:00:00) + (datetime #:date #1999-11-05 #:time #09:00:00) + (datetime #:date #2000-05-05 #:time #09:00:00) + (datetime #:date #2001-01-05 #:time #09:00:00) + (datetime #:date #2001-10-05 #:time #09:00:00) + (datetime #:date #2002-04-05 #:time #09:00:00))) (vevent summary: "Monthly on the first Friday until December 24, 1997" dtstart: "19970905T090000" rrule: "FREQ=MONTHLY;UNTIL=19971224T000000Z;BYDAY=1FR" - x-summary: "första fredagen varje månad, till och med den 24 december, 1997 kl. 0:00") + x-summary: "första fredagen varje månad, till och med den 24 december, 1997 kl. 0:00" + x-set: (list (datetime #:date #1997-09-05 #:time #09:00:00) + (datetime #:date #1997-12-05 #:time #09:00:00))) (vevent summary: "Every other month on the first and last Sunday of the month for 10 occurrences" dtstart: "19970907T090000" rrule: "FREQ=MONTHLY;INTERVAL=2;COUNT=10;BYDAY=1SU,-1SU" - x-summary: "första söndagen samt sista söndagen varannan månad, totalt 10 gånger") + x-summary: "första söndagen samt sista söndagen varannan månad, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-07 #:time #09:00:00) + (datetime #:date #1999-03-07 #:time #09:00:00) + (datetime #:date #1999-11-07 #:time #09:00:00) + (datetime #:date #2000-05-07 #:time #09:00:00) + (datetime #:date #2001-01-07 #:time #09:00:00) + (datetime #:date #2002-07-07 #:time #09:00:00) + (datetime #:date #2003-09-07 #:time #09:00:00) + (datetime #:date #2004-03-07 #:time #09:00:00) + (datetime #:date #2004-11-07 #:time #09:00:00) + (datetime #:date #2006-05-07 #:time #09:00:00))) (vevent summary: "Monthly on the second-to-last Monday of the month for 6 months" dtstart: "19970922T090000" rrule: "FREQ=MONTHLY;COUNT=6;BYDAY=-2MO" - x-summary: "näst sista måndagen varje månad, totalt 6 gånger") + x-summary: "näst sista måndagen varje månad, totalt 6 gånger" + x-set: (list (datetime #:date #1997-09-22 #:time #09:00:00) + (datetime #:date #1997-12-22 #:time #09:00:00) + (datetime #:date #1998-06-22 #:time #09:00:00) + (datetime #:date #1999-02-22 #:time #09:00:00) + (datetime #:date #1999-03-22 #:time #09:00:00) + (datetime #:date #1999-11-22 #:time #09:00:00)) + ) (vevent summary: "Monthly on the third-to-the-last day of the month, forever" dtstart: "19970928T090000" rrule: "FREQ=MONTHLY;BYMONTHDAY=-3" - x-summary: "den tredje sista varje månad") + x-summary: "den tredje sista varje månad" + x-set: (list (datetime #:date #1997-09-28 #:time #09:00:00) + (datetime #:date #1997-10-29 #:time #09:00:00) + (datetime #:date #1997-11-28 #:time #09:00:00) + (datetime #:date #1997-12-29 #:time #09:00:00) + (datetime #:date #1998-01-29 #:time #09:00:00) + (datetime #:date #1998-02-26 #:time #09:00:00) + (datetime #:date #1998-03-29 #:time #09:00:00) + (datetime #:date #1998-04-28 #:time #09:00:00) + (datetime #:date #1998-05-29 #:time #09:00:00) + (datetime #:date #1998-06-28 #:time #09:00:00) + (datetime #:date #1998-07-29 #:time #09:00:00) + (datetime #:date #1998-08-29 #:time #09:00:00) + (datetime #:date #1998-09-28 #:time #09:00:00) + (datetime #:date #1998-10-29 #:time #09:00:00) + (datetime #:date #1998-11-28 #:time #09:00:00) + (datetime #:date #1998-12-29 #:time #09:00:00) + (datetime #:date #1999-01-29 #:time #09:00:00) + (datetime #:date #1999-02-26 #:time #09:00:00) + (datetime #:date #1999-03-29 #:time #09:00:00) + (datetime #:date #1999-04-28 #:time #09:00:00))) (vevent summary: "Monthly on the 2nd and 15th of the month for 10 occurrences" dtstart: "19970902T090000" rrule: "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=2,15" - x-summary: "den andre & femtonde varje månad, totalt 10 gånger") + x-summary: "den andre & femtonde varje månad, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-15 #:time #09:00:00) + (datetime #:date #1997-10-02 #:time #09:00:00) + (datetime #:date #1997-10-15 #:time #09:00:00) + (datetime #:date #1997-11-02 #:time #09:00:00) + (datetime #:date #1997-11-15 #:time #09:00:00) + (datetime #:date #1997-12-02 #:time #09:00:00) + (datetime #:date #1997-12-15 #:time #09:00:00) + (datetime #:date #1998-01-02 #:time #09:00:00) + (datetime #:date #1998-01-15 #:time #09:00:00))) (vevent summary: "Monthly on the first and last day of the month for 10 occurrences" dtstart: "19970930T090000" rrule: "FREQ=MONTHLY;COUNT=10;BYMONTHDAY=1,-1" - x-summary: "den förste & sista varje månad, totalt 10 gånger") + x-summary: "den förste & sista varje månad, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-30 #:time #09:00:00) + (datetime #:date #1997-10-01 #:time #09:00:00) + (datetime #:date #1997-10-31 #:time #09:00:00) + (datetime #:date #1997-11-01 #:time #09:00:00) + (datetime #:date #1997-11-30 #:time #09:00:00) + (datetime #:date #1997-12-01 #:time #09:00:00) + (datetime #:date #1997-12-31 #:time #09:00:00) + (datetime #:date #1998-01-01 #:time #09:00:00) + (datetime #:date #1998-01-31 #:time #09:00:00) + (datetime #:date #1998-03-01 #:time #09:00:00))) (vevent summary: "Every 18 months on the 10th thru 15th of the month for 10 occurrences" dtstart: "19970910T090000" rrule: "FREQ=MONTHLY;INTERVAL=18;COUNT=10;BYMONTHDAY=10,11,12,13,14,15" - x-summary: "den tionde, elfte, tolfte, trettonde, fjortonde & femtonde var artonde månad, totalt 10 gånger") + x-summary: "den tionde, elfte, tolfte, trettonde, fjortonde & femtonde var artonde månad, totalt 10 gånger" + x-set: (list (datetime #:date #1997-09-10 #:time #09:00:00) + (datetime #:date #1997-09-11 #:time #09:00:00) + (datetime #:date #1997-09-12 #:time #09:00:00) + (datetime #:date #1997-09-13 #:time #09:00:00) + (datetime #:date #1997-09-14 #:time #09:00:00) + (datetime #:date #1997-09-15 #:time #09:00:00) + (datetime #:date #1999-03-10 #:time #09:00:00) + (datetime #:date #1999-03-11 #:time #09:00:00) + (datetime #:date #1999-03-12 #:time #09:00:00) + (datetime #:date #1999-03-13 #:time #09:00:00))) (vevent summary: "Every Tuesday, every other month" dtstart: "19970902T090000" rrule: "FREQ=MONTHLY;INTERVAL=2;BYDAY=TU" - x-summary: "varje tisdag varannan månad") + x-summary: "varje tisdag varannan månad" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1999-03-02 #:time #09:00:00) + (datetime #:date #1999-11-02 #:time #09:00:00) + (datetime #:date #2000-05-02 #:time #09:00:00) + (datetime #:date #2001-01-02 #:time #09:00:00) + (datetime #:date #2002-07-02 #:time #09:00:00) + (datetime #:date #2003-09-02 #:time #09:00:00) + (datetime #:date #2004-03-02 #:time #09:00:00) + (datetime #:date #2004-11-02 #:time #09:00:00) + (datetime #:date #2006-05-02 #:time #09:00:00) + (datetime #:date #2007-01-02 #:time #09:00:00) + (datetime #:date #2008-09-02 #:time #09:00:00) + (datetime #:date #2010-03-02 #:time #09:00:00) + (datetime #:date #2010-11-02 #:time #09:00:00) + (datetime #:date #2013-07-02 #:time #09:00:00) + (datetime #:date #2014-09-02 #:time #09:00:00) + (datetime #:date #2017-05-02 #:time #09:00:00) + (datetime #:date #2018-01-02 #:time #09:00:00) + (datetime #:date #2019-07-02 #:time #09:00:00) + (datetime #:date #2021-03-02 #:time #09:00:00))) (vevent summary: "Yearly in June and July for 10 occurrences: -Note: Since none of the BYDAY, BYMONTHDAY, or BYYEARDAY -components are specified, the day is gotten from \"DTSTART\"" +: Since none of the BYDAY, BYMONTHDAY, or BYYEARDAY +onents are specified, the day is gotten from \"DTSTART\"" dtstart: "19970610T090000" rrule: "FREQ=YEARLY;COUNT=10;BYMONTH=6,7" - x-summary: "juni & juli, årligen, totalt 10 gånger") + x-summary: "juni & juli, årligen, totalt 10 gånger" + x-set: (list (datetime #:date #1997-06-10 #:time #09:00:00) + (datetime #:date #1997-07-10 #:time #09:00:00) + (datetime #:date #1998-06-10 #:time #09:00:00) + (datetime #:date #1998-07-10 #:time #09:00:00) + (datetime #:date #1999-06-10 #:time #09:00:00) + (datetime #:date #1999-07-10 #:time #09:00:00) + (datetime #:date #2000-06-10 #:time #09:00:00) + (datetime #:date #2000-07-10 #:time #09:00:00) + (datetime #:date #2001-06-10 #:time #09:00:00) + (datetime #:date #2001-07-10 #:time #09:00:00))) (vevent summary: "Every other year on January, February, and March for 10 occurrences" dtstart: "19970310T090000" rrule: "FREQ=YEARLY;INTERVAL=2;COUNT=10;BYMONTH=1,2,3" - x-summary: "januari, februari & mars vartannat år, totalt 10 gånger") + x-summary: "januari, februari & mars vartannat år, totalt 10 gånger" + x-set: (list (datetime #:date #1997-03-10 #:time #09:00:00) + (datetime #:date #1999-01-10 #:time #09:00:00) + (datetime #:date #1999-02-10 #:time #09:00:00) + (datetime #:date #1999-03-10 #:time #09:00:00) + (datetime #:date #2001-01-10 #:time #09:00:00) + (datetime #:date #2001-02-10 #:time #09:00:00) + (datetime #:date #2001-03-10 #:time #09:00:00) + (datetime #:date #2003-01-10 #:time #09:00:00) + (datetime #:date #2003-02-10 #:time #09:00:00) + (datetime #:date #2003-03-10 #:time #09:00:00))) (vevent summary: "Every third year on the 1st, 100th, and 200th day for 10 occurrences" dtstart: "19970101T090000" rrule: "FREQ=YEARLY;INTERVAL=3;COUNT=10;BYYEARDAY=1,100,200" - x-summary: "dag 1, 100 & 200 vart tredje år, totalt 10 gånger") + x-summary: "dag 1, 100 & 200 vart tredje år, totalt 10 gånger" + x-set: (list (datetime #:date #1997-01-01 #:time #09:00:00) + (datetime #:date #1997-04-10 #:time #09:00:00) + (datetime #:date #1997-07-19 #:time #09:00:00) + (datetime #:date #2000-01-01 #:time #09:00:00) + (datetime #:date #2000-04-09 #:time #09:00:00) + (datetime #:date #2000-07-18 #:time #09:00:00) + (datetime #:date #2003-01-01 #:time #09:00:00) + (datetime #:date #2003-04-10 #:time #09:00:00) + (datetime #:date #2003-07-19 #:time #09:00:00) + (datetime #:date #2006-01-01 #:time #09:00:00))) (vevent summary: "Every 20th Monday of the year, forever" dtstart: "19970519T090000" rrule: "FREQ=YEARLY;BYDAY=20MO" - x-summary: "tjugonde måndagen, årligen") + x-summary: "tjugonde måndagen, årligen" + x-set: (list (datetime #:date #1997-05-19 #:time #09:00:00) + (datetime #:date #2003-05-19 #:time #09:00:00) + (datetime #:date #2008-05-19 #:time #09:00:00) + (datetime #:date #2014-05-19 #:time #09:00:00) + (datetime #:date #2025-05-19 #:time #09:00:00) + (datetime #:date #2031-05-19 #:time #09:00:00) + (datetime #:date #2036-05-19 #:time #09:00:00) + (datetime #:date #2042-05-19 #:time #09:00:00) + (datetime #:date #2053-05-19 #:time #09:00:00) + (datetime #:date #2059-05-19 #:time #09:00:00) + (datetime #:date #2064-05-19 #:time #09:00:00) + (datetime #:date #2070-05-19 #:time #09:00:00) + (datetime #:date #2081-05-19 #:time #09:00:00) + (datetime #:date #2087-05-19 #:time #09:00:00) + (datetime #:date #2092-05-19 #:time #09:00:00) + (datetime #:date #2098-05-19 #:time #09:00:00) + (datetime #:date #2109-05-19 #:time #09:00:00) + (datetime #:date #2115-05-19 #:time #09:00:00) + (datetime #:date #2120-05-19 #:time #09:00:00) + (datetime #:date #2126-05-19 #:time #09:00:00))) (vevent summary: "Monday of week number 20 (where the default start of the week is Monday), forever" dtstart: "19970512T090000" rrule: "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO" - x-summary: "varje måndag v.20, årligen") + x-summary: "varje måndag v.20, årligen" + x-set: (list (datetime #:date #1997-05-12 #:time #09:00:00) + (datetime #:date #1998-05-11 #:time #09:00:00) + (datetime #:date #1999-05-17 #:time #09:00:00) + (datetime #:date #2000-05-15 #:time #09:00:00) + (datetime #:date #2001-05-14 #:time #09:00:00) + (datetime #:date #2002-05-13 #:time #09:00:00) + (datetime #:date #2003-05-12 #:time #09:00:00) + (datetime #:date #2004-05-10 #:time #09:00:00) + (datetime #:date #2005-05-16 #:time #09:00:00) + (datetime #:date #2006-05-15 #:time #09:00:00) + (datetime #:date #2007-05-14 #:time #09:00:00) + (datetime #:date #2008-05-12 #:time #09:00:00) + (datetime #:date #2009-05-11 #:time #09:00:00) + (datetime #:date #2010-05-17 #:time #09:00:00) + (datetime #:date #2011-05-16 #:time #09:00:00) + (datetime #:date #2012-05-14 #:time #09:00:00) + (datetime #:date #2013-05-13 #:time #09:00:00) + (datetime #:date #2014-05-12 #:time #09:00:00) + (datetime #:date #2015-05-11 #:time #09:00:00) + (datetime #:date #2016-05-16 #:time #09:00:00))) (vevent summary: "Every Thursday in March, forever" dtstart: "19970313T090000" rrule: "FREQ=YEARLY;BYMONTH=3;BYDAY=TH" - x-summary: "varje torsdag i mars, årligen") + x-summary: "varje torsdag i mars, årligen" + x-set: (list (datetime #:date #1997-03-13 #:time #09:00:00) + (datetime #:date #1997-03-20 #:time #09:00:00) + (datetime #:date #1997-03-27 #:time #09:00:00) + (datetime #:date #1998-03-05 #:time #09:00:00) + (datetime #:date #1998-03-12 #:time #09:00:00) + (datetime #:date #1998-03-19 #:time #09:00:00) + (datetime #:date #1998-03-26 #:time #09:00:00) + (datetime #:date #1999-03-04 #:time #09:00:00) + (datetime #:date #1999-03-11 #:time #09:00:00) + (datetime #:date #1999-03-18 #:time #09:00:00) + (datetime #:date #1999-03-25 #:time #09:00:00) + (datetime #:date #2000-03-02 #:time #09:00:00) + (datetime #:date #2000-03-09 #:time #09:00:00) + (datetime #:date #2000-03-16 #:time #09:00:00) + (datetime #:date #2000-03-23 #:time #09:00:00) + (datetime #:date #2000-03-30 #:time #09:00:00) + (datetime #:date #2001-03-01 #:time #09:00:00) + (datetime #:date #2001-03-08 #:time #09:00:00) + (datetime #:date #2001-03-15 #:time #09:00:00) + (datetime #:date #2001-03-22 #:time #09:00:00))) (vevent summary: "Every Thursday, but only during June, July, and August, forever" dtstart: "19970605T090000" rrule: "FREQ=YEARLY;BYDAY=TH;BYMONTH=6,7,8" - x-summary: "varje torsdag i juni, juli & augusti, årligen") + x-summary: "varje torsdag i juni, juli & augusti, årligen" + x-set: (list (datetime #:date #1997-06-05 #:time #09:00:00) + (datetime #:date #1997-06-12 #:time #09:00:00) + (datetime #:date #1997-06-19 #:time #09:00:00) + (datetime #:date #1997-06-26 #:time #09:00:00) + (datetime #:date #1997-07-03 #:time #09:00:00) + (datetime #:date #1997-07-10 #:time #09:00:00) + (datetime #:date #1997-07-17 #:time #09:00:00) + (datetime #:date #1997-07-24 #:time #09:00:00) + (datetime #:date #1997-07-31 #:time #09:00:00) + (datetime #:date #1997-08-07 #:time #09:00:00) + (datetime #:date #1997-08-14 #:time #09:00:00) + (datetime #:date #1997-08-21 #:time #09:00:00) + (datetime #:date #1997-08-28 #:time #09:00:00) + (datetime #:date #1998-06-04 #:time #09:00:00) + (datetime #:date #1998-06-11 #:time #09:00:00) + (datetime #:date #1998-06-18 #:time #09:00:00) + (datetime #:date #1998-06-25 #:time #09:00:00) + (datetime #:date #1998-07-02 #:time #09:00:00) + (datetime #:date #1998-07-09 #:time #09:00:00) + (datetime #:date #1998-07-16 #:time #09:00:00))) ;; NOTE This has some weird grammar in swedish (vevent @@ -229,98 +884,285 @@ components are specified, the day is gotten from \"DTSTART\"" dtstart: "19970902T090000" exdate: "19970902T090000" rrule: "FREQ=MONTHLY;BYDAY=FR;BYMONTHDAY=13" - x-summary: "varje fredag den trettonde varje månad") + x-summary: "varje fredag den trettonde varje månad" + x-set: (list (datetime #:date #1998-02-13 #:time #09:00:00) + (datetime #:date #1998-03-13 #:time #09:00:00) + (datetime #:date #1998-11-13 #:time #09:00:00) + (datetime #:date #1999-08-13 #:time #09:00:00) + (datetime #:date #2000-10-13 #:time #09:00:00) + (datetime #:date #2001-04-13 #:time #09:00:00) + (datetime #:date #2001-07-13 #:time #09:00:00) + (datetime #:date #2002-09-13 #:time #09:00:00) + (datetime #:date #2002-12-13 #:time #09:00:00) + (datetime #:date #2003-06-13 #:time #09:00:00) + (datetime #:date #2004-02-13 #:time #09:00:00) + (datetime #:date #2004-08-13 #:time #09:00:00) + (datetime #:date #2005-05-13 #:time #09:00:00) + (datetime #:date #2006-01-13 #:time #09:00:00) + (datetime #:date #2006-10-13 #:time #09:00:00) + (datetime #:date #2007-04-13 #:time #09:00:00) + (datetime #:date #2007-07-13 #:time #09:00:00) + (datetime #:date #2008-06-13 #:time #09:00:00) + (datetime #:date #2009-02-13 #:time #09:00:00) + (datetime #:date #2009-03-13 #:time #09:00:00))) (vevent summary: "The first Saturday that follows the first Sunday of the month,forever" dtstart: "19970913T090000" rrule: "FREQ=MONTHLY;BYDAY=SA;BYMONTHDAY=7,8,9,10,11,12,13" - x-summary: "varje lördag den sjunde, åttonde, nionde, tionde, elfte, tolfte & trettonde varje månad") + x-summary: "varje lördag den sjunde, åttonde, nionde, tionde, elfte, tolfte & trettonde varje månad" + x-set: (list (datetime #:date #1997-09-13 #:time #09:00:00) + (datetime #:date #1997-10-11 #:time #09:00:00) + (datetime #:date #1997-11-08 #:time #09:00:00) + (datetime #:date #1997-12-13 #:time #09:00:00) + (datetime #:date #1998-01-10 #:time #09:00:00) + (datetime #:date #1998-02-07 #:time #09:00:00) + (datetime #:date #1998-03-07 #:time #09:00:00) + (datetime #:date #1998-04-11 #:time #09:00:00) + (datetime #:date #1998-05-09 #:time #09:00:00) + (datetime #:date #1998-06-13 #:time #09:00:00) + (datetime #:date #1998-07-11 #:time #09:00:00) + (datetime #:date #1998-08-08 #:time #09:00:00) + (datetime #:date #1998-09-12 #:time #09:00:00) + (datetime #:date #1998-10-10 #:time #09:00:00) + (datetime #:date #1998-11-07 #:time #09:00:00) + (datetime #:date #1998-12-12 #:time #09:00:00) + (datetime #:date #1999-01-09 #:time #09:00:00) + (datetime #:date #1999-02-13 #:time #09:00:00) + (datetime #:date #1999-03-13 #:time #09:00:00) + (datetime #:date #1999-04-10 #:time #09:00:00))) (vevent summary: "Every 4 years, the first Tuesday after a Monday in November, -forever (U.S. Presidential Election day)" +ver (U.S. Presidential Election day)" dtstart: "19961105T090000" rrule: "FREQ=YEARLY;INTERVAL=4;BYMONTH=11;BYDAY=TU;BYMONTHDAY=2,3,4,5,6,7,8" - x-summary: "varje tisdag den andre, tredje, fjärde, femte, sjätte, sjunde eller åttonde i november vart fjärde år") + x-summary: "varje tisdag den andre, tredje, fjärde, femte, sjätte, sjunde eller åttonde i november vart fjärde år" + x-set: (list (datetime #:date #1996-11-05 #:time #09:00:00) + (datetime #:date #2000-11-07 #:time #09:00:00) + (datetime #:date #2004-11-02 #:time #09:00:00) + (datetime #:date #2008-11-04 #:time #09:00:00) + (datetime #:date #2012-11-06 #:time #09:00:00) + (datetime #:date #2016-11-08 #:time #09:00:00) + (datetime #:date #2020-11-03 #:time #09:00:00) + (datetime #:date #2024-11-05 #:time #09:00:00) + (datetime #:date #2028-11-07 #:time #09:00:00) + (datetime #:date #2032-11-02 #:time #09:00:00) + (datetime #:date #2036-11-04 #:time #09:00:00) + (datetime #:date #2040-11-06 #:time #09:00:00) + (datetime #:date #2044-11-08 #:time #09:00:00) + (datetime #:date #2048-11-03 #:time #09:00:00) + (datetime #:date #2052-11-05 #:time #09:00:00) + (datetime #:date #2056-11-07 #:time #09:00:00) + (datetime #:date #2060-11-02 #:time #09:00:00) + (datetime #:date #2064-11-04 #:time #09:00:00) + (datetime #:date #2068-11-06 #:time #09:00:00) + (datetime #:date #2072-11-08 #:time #09:00:00))) (vevent summary: "The third instance into the month of one of Tuesday, Wednesday, or -Thursday, for the next 3 months" +sday, for the next 3 months" dtstart: "19970904T090000" rrule: "FREQ=MONTHLY;COUNT=3;BYDAY=TU,WE,TH;BYSETPOS=3" - x-summary: "NOT YET IMPLEMENTED") + x-summary: "NOT YET IMPLEMENTED" + x-set: (list (datetime #:date #1997-09-04 #:time #09:00:00) + (datetime #:date #1997-11-04 #:time #09:00:00) + (datetime #:date #1997-12-04 #:time #09:00:00))) (vevent summary: "The second-to-last weekday of the month" dtstart: "19970929T090000" rrule: "FREQ=MONTHLY;BYDAY=MO,TU,WE,TH,FR;BYSETPOS=-2" - x-summary: "NOT YET IMPLEMENTED") + x-summary: "NOT YET IMPLEMENTED" + x-set: (list (datetime #:date #1997-09-29 #:time #09:00:00) + (datetime #:date #1997-10-29 #:time #09:00:00) + (datetime #:date #1997-12-29 #:time #09:00:00) + (datetime #:date #1998-01-29 #:time #09:00:00) + (datetime #:date #1998-04-01 #:time #09:00:00) + (datetime #:date #1998-05-01 #:time #09:00:00) + (datetime #:date #1998-06-01 #:time #09:00:00) + (datetime #:date #1998-07-01 #:time #09:00:00) + (datetime #:date #1998-09-01 #:time #09:00:00) + (datetime #:date #1998-10-01 #:time #09:00:00) + (datetime #:date #1998-12-01 #:time #09:00:00) + (datetime #:date #1999-01-01 #:time #09:00:00) + (datetime #:date #1999-02-01 #:time #09:00:00) + (datetime #:date #1999-03-01 #:time #09:00:00) + (datetime #:date #1999-04-01 #:time #09:00:00) + (datetime #:date #1999-06-01 #:time #09:00:00) + (datetime #:date #1999-07-01 #:time #09:00:00) + (datetime #:date #1999-09-01 #:time #09:00:00) + (datetime #:date #1999-10-01 #:time #09:00:00) + (datetime #:date #1999-11-01 #:time #09:00:00))) (vevent summary: "Every 3 hours from 9:00 AM to 5:00 PM on a specific day" dtstart: "19970902T090000" rrule: "FREQ=HOURLY;INTERVAL=3;UNTIL=19970902T170000Z" - x-summary: "var tredje timme, till och med den 02 september, 1997 kl. 17:00") + x-summary: "var tredje timme, till och med den 02 september, 1997 kl. 17:00" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-02 #:time #12:00:00) + (datetime #:date #1997-09-02 #:time #15:00:00))) (vevent summary: "Every 15 minutes for 6 occurrences" dtstart: "19970902T090000" rrule: "FREQ=MINUTELY;INTERVAL=15;COUNT=6" - x-summary: "varje kvart, totalt 6 gånger") + x-summary: "varje kvart, totalt 6 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-02 #:time #09:15:00) + (datetime #:date #1997-09-02 #:time #09:30:00) + (datetime #:date #1997-09-02 #:time #09:45:00) + (datetime #:date #1997-09-02 #:time #10:00:00) + (datetime #:date #1997-09-02 #:time #10:15:00))) (vevent summary: "Every hour and a half for 4 occurrences" dtstart: "19970902T090000" rrule: "FREQ=MINUTELY;INTERVAL=90;COUNT=4" - x-summary: "var sjätte kvart, totalt 4 gånger") + x-summary: "var sjätte kvart, totalt 4 gånger" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-02 #:time #10:30:00) + (datetime #:date #1997-09-02 #:time #12:00:00) + (datetime #:date #1997-09-02 #:time #13:30:00))) (vevent summary: "Every 20 minutes from 9:00 AM to 4:40 PM every day (alt 1)" dtstart: "19970902T090000" rrule: "FREQ=DAILY;BYHOUR=9,10,11,12,13,14,15,16;BYMINUTE=0,20,40" - x-summary: "dagligen kl. 09:00, 09:20, 09:40, 10:00, 10:20, 10:40, 11:00, 11:20, 11:40, 12:00, 12:20, 12:40, 13:00, 13:20, 13:40, 14:00, 14:20, 14:40, 15:00, 15:20, 15:40, 16:00, 16:20 & 16:40") + x-summary: "dagligen kl. 09:00, 09:20, 09:40, 10:00, 10:20, 10:40, 11:00, 11:20, 11:40, 12:00, 12:20, 12:40, 13:00, 13:20, 13:40, 14:00, 14:20, 14:40, 15:00, 15:20, 15:40, 16:00, 16:20 & 16:40" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-02 #:time #09:20:00) + (datetime #:date #1997-09-02 #:time #09:40:00) + (datetime #:date #1997-09-02 #:time #10:00:00) + (datetime #:date #1997-09-02 #:time #10:20:00) + (datetime #:date #1997-09-02 #:time #10:40:00) + (datetime #:date #1997-09-02 #:time #11:00:00) + (datetime #:date #1997-09-02 #:time #11:20:00) + (datetime #:date #1997-09-02 #:time #11:40:00) + (datetime #:date #1997-09-02 #:time #12:00:00) + (datetime #:date #1997-09-02 #:time #12:20:00) + (datetime #:date #1997-09-02 #:time #12:40:00) + (datetime #:date #1997-09-02 #:time #13:00:00) + (datetime #:date #1997-09-02 #:time #13:20:00) + (datetime #:date #1997-09-02 #:time #13:40:00) + (datetime #:date #1997-09-02 #:time #14:00:00) + (datetime #:date #1997-09-02 #:time #14:20:00) + (datetime #:date #1997-09-02 #:time #14:40:00) + (datetime #:date #1997-09-02 #:time #15:00:00) + (datetime #:date #1997-09-02 #:time #15:20:00))) (vevent summary: "Every 20 minutes from 9:00 AM to 4:40 PM every day (alt 2)" dtstart: "19970902T090000" rrule: "FREQ=MINUTELY;INTERVAL=20;BYHOUR=9,10,11,12,13,14,15,16" - x-summary: "var tjugonde minut kl. 9, 10, 11, 12, 13, 14, 15 & 16") + x-summary: "var tjugonde minut kl. 9, 10, 11, 12, 13, 14, 15 & 16" + x-set: (list (datetime #:date #1997-09-02 #:time #09:00:00) + (datetime #:date #1997-09-02 #:time #09:20:00) + (datetime #:date #1997-09-02 #:time #09:40:00) + (datetime #:date #1997-09-02 #:time #10:00:00) + (datetime #:date #1997-09-02 #:time #10:20:00) + (datetime #:date #1997-09-02 #:time #10:40:00) + (datetime #:date #1997-09-02 #:time #11:00:00) + (datetime #:date #1997-09-02 #:time #11:20:00) + (datetime #:date #1997-09-02 #:time #11:40:00) + (datetime #:date #1997-09-02 #:time #12:00:00) + (datetime #:date #1997-09-02 #:time #12:20:00) + (datetime #:date #1997-09-02 #:time #12:40:00) + (datetime #:date #1997-09-02 #:time #13:00:00) + (datetime #:date #1997-09-02 #:time #13:20:00) + (datetime #:date #1997-09-02 #:time #13:40:00) + (datetime #:date #1997-09-02 #:time #14:00:00) + (datetime #:date #1997-09-02 #:time #14:20:00) + (datetime #:date #1997-09-02 #:time #14:40:00) + (datetime #:date #1997-09-02 #:time #15:00:00) + (datetime #:date #1997-09-02 #:time #15:20:00))) (vevent summary: "An example where the days generated makes a difference because of WKST" dtstart: "19970805T090000" rrule: "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=MO" - x-summary: "varannan tisdag & söndag, totalt 4 gånger") + x-summary: "varannan tisdag & söndag, totalt 4 gånger" + x-set: (list (datetime #:date #1997-08-05 #:time #09:00:00) + (datetime #:date #1997-08-10 #:time #09:00:00) + (datetime #:date #1997-08-19 #:time #09:00:00) + (datetime #:date #1997-08-24 #:time #09:00:00))) (vevent summary: "changing only WKST from MO to SU, yields different results.." dtstart: "19970805T090000" rrule: "FREQ=WEEKLY;INTERVAL=2;COUNT=4;BYDAY=TU,SU;WKST=SU" - x-summary: "varannan tisdag & söndag, totalt 4 gånger") + x-summary: "varannan tisdag & söndag, totalt 4 gånger" + x-set: (list (datetime #:date #1997-08-05 #:time #09:00:00) + (datetime #:date #1997-08-17 #:time #09:00:00) + (datetime #:date #1997-08-19 #:time #09:00:00) + (datetime #:date #1997-08-31 #:time #09:00:00))) (vevent summary: "An example where an invalid date (i.e., February 30) is ignored" dtstart: "20070115T090000" rrule: "FREQ=MONTHLY;BYMONTHDAY=15,30;COUNT=5" - x-summary: "den femtonde & tretionde varje månad, totalt 5 gånger") + x-summary: "den femtonde & tretionde varje månad, totalt 5 gånger" + x-set: (list (datetime #:date #2007-01-15 #:time #09:00:00) + (datetime #:date #2007-01-30 #:time #09:00:00) + (datetime #:date #2007-02-15 #:time #09:00:00) + (datetime #:date #2007-03-15 #:time #09:00:00) + (datetime #:date #2007-03-30 #:time #09:00:00))) -;;; End of examples from RFC, start of own examples - + ;; End of examples from RFC, start of own examples (vevent summary: "Every Friday & Wednesday the 13th, forever" dtstart: "19970902T090000" exdate: "19970902T090000" rrule: "FREQ=MONTHLY;BYDAY=FR,WE;BYMONTHDAY=13" - x-summary: "varje onsdag & fredag den trettonde varje månad") + x-summary: "varje onsdag & fredag den trettonde varje månad" + x-set: (list (datetime #:date #1998-02-13 #:time #09:00:00) + (datetime #:date #1998-03-13 #:time #09:00:00) + (datetime #:date #1998-05-13 #:time #09:00:00) + (datetime #:date #1998-11-13 #:time #09:00:00) + (datetime #:date #1999-01-13 #:time #09:00:00) + (datetime #:date #1999-08-13 #:time #09:00:00) + (datetime #:date #1999-10-13 #:time #09:00:00) + (datetime #:date #2000-09-13 #:time #09:00:00) + (datetime #:date #2000-10-13 #:time #09:00:00) + (datetime #:date #2000-12-13 #:time #09:00:00) + (datetime #:date #2001-04-13 #:time #09:00:00) + (datetime #:date #2001-06-13 #:time #09:00:00) + (datetime #:date #2001-07-13 #:time #09:00:00) + (datetime #:date #2002-02-13 #:time #09:00:00) + (datetime #:date #2002-03-13 #:time #09:00:00) + (datetime #:date #2002-09-13 #:time #09:00:00) + (datetime #:date #2002-11-13 #:time #09:00:00) + (datetime #:date #2002-12-13 #:time #09:00:00) + (datetime #:date #2003-06-13 #:time #09:00:00) + (datetime #:date #2003-08-13 #:time #09:00:00))) -(vevent + (vevent summary: "Monday & Wednesday of week number 20 (where the default start of the week is Monday), forever" dtstart: "19970512T090000" rrule: "FREQ=YEARLY;BYWEEKNO=20;BYDAY=MO,WE" - x-summary: "varje onsdag & måndag v.20, årligen") - )) + x-summary: "varje onsdag & måndag v.20, årligen" + x-set: (list (datetime #:date #1997-05-12 #:time #09:00:00) + (datetime #:date #1997-05-14 #:time #09:00:00) + (datetime #:date #1998-05-11 #:time #09:00:00) + (datetime #:date #1998-05-13 #:time #09:00:00) + (datetime #:date #1999-05-17 #:time #09:00:00) + (datetime #:date #1999-05-19 #:time #09:00:00) + (datetime #:date #2000-05-15 #:time #09:00:00) + (datetime #:date #2000-05-17 #:time #09:00:00) + (datetime #:date #2001-05-14 #:time #09:00:00) + (datetime #:date #2001-05-16 #:time #09:00:00) + (datetime #:date #2002-05-13 #:time #09:00:00) + (datetime #:date #2002-05-15 #:time #09:00:00) + (datetime #:date #2003-05-12 #:time #09:00:00) + (datetime #:date #2003-05-14 #:time #09:00:00) + (datetime #:date #2004-05-10 #:time #09:00:00) + (datetime #:date #2004-05-12 #:time #09:00:00) + (datetime #:date #2005-05-16 #:time #09:00:00) + (datetime #:date #2005-05-18 #:time #09:00:00) + (datetime #:date #2006-05-15 #:time #09:00:00) + (datetime #:date #2006-05-17 #:time #09:00:00))))) diff --git a/tests/run-tests.scm b/tests/run-tests.scm index e01fcb0b..6d9b3ac0 100755 --- a/tests/run-tests.scm +++ b/tests/run-tests.scm @@ -61,6 +61,7 @@ (eval-in-sandbox `(begin ,@(read-multiple)) #:time-limit 60 ; larger than should be needed + #:allocation-limit #e10e8 #:module (make-sandbox-module (append modules '(((srfi srfi-64) test-assert test-equal test-error) |