diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 00:07:22 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-01-14 00:07:22 +0100 |
commit | a1ae616a1177fa50b6c5bb86a341081a3b06e710 (patch) | |
tree | af6397154c3511a8488ff0e7701841de4a93491e /tests/recurrence-id.scm | |
parent | Fix broken test. (diff) | |
download | calp-a1ae616a1177fa50b6c5bb86a341081a3b06e710.tar.gz calp-a1ae616a1177fa50b6c5bb86a341081a3b06e710.tar.xz |
Merge several recurrence test files.
Diffstat (limited to '')
-rw-r--r-- | tests/recurrence-id.scm | 53 |
1 files changed, 0 insertions, 53 deletions
diff --git a/tests/recurrence-id.scm b/tests/recurrence-id.scm deleted file mode 100644 index be58d924..00000000 --- a/tests/recurrence-id.scm +++ /dev/null @@ -1,53 +0,0 @@ -;;; 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) - ((guile) format) - ) - -(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 -BEGIN:VEVENT -SUMMARY:Changing type on Recurrence-id. -UID:~a -DTSTART;VALUE=DATE:20090127 -END:VEVENT -BEGIN:VEVENT -UID:~a -SUMMARY:Changing type on Recurrence-id. -DTSTART;TZID=Europe/Stockholm:20100127T120000 -RECURRENCE-ID;VALUE=DATE:20100127 -SUMMARY:This instance only has a time component -END:VEVENT -END:VCALENDAR" - uid uid) - parse-calendar)) - - -(test-assert "Changing type on Recurrence id." - (stream->list 10 (generate-recurrence-set ev))) |