From 28acaa453d6bf60acb8397b87fc9676239a70ae5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Wed, 13 Jan 2021 22:44:40 +0100
Subject: Add example xcal.

---
 tests/recurrence-id.scm | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/tests/recurrence-id.scm b/tests/recurrence-id.scm
index 8af978c0..be58d924 100644
--- a/tests/recurrence-id.scm
+++ b/tests/recurrence-id.scm
@@ -12,6 +12,23 @@
 
 (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
-- 
cgit v1.2.3