Merge several recurrence test files.

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)))