From 797cc1696c6ee1c8e42daa9fddf23f9baa7b2a71 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 28 Jun 2020 23:31:07 +0200
Subject: Add xcal tests.

---
 tests/xcal.scm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)
 create mode 100644 tests/xcal.scm

(limited to 'tests/xcal.scm')

diff --git a/tests/xcal.scm b/tests/xcal.scm
new file mode 100644
index 00000000..938a39b0
--- /dev/null
+++ b/tests/xcal.scm
@@ -0,0 +1,45 @@
+(((vcomponent parse xcal) sxcal->vcomponent)
+ ((vcomponent parse component) parse-calendar)
+ ((output xcal) vcomponent->sxcal)
+ ((util) ->)
+ ((vcomponent base)
+  properties attr* children)
+ )
+
+;;; Some different types, same parameters
+
+(define ev
+  (call-with-input-string "BEGIN:VCALENDAR
+VERSION:2.0
+PRODID:-//calparse-test
+BEGIN:VEVENT
+SUMMARY:Test event
+DTSTART;TZID=Europe/Stockholm:20200625T133000
+DTEND:20200625T143000Z
+DTSTAMP:20200609T131418Z
+UID:1
+SEQUENCE:0
+CREATED:20200609T081725Z
+DESCRIPTION:Short description
+LAST-MODIFIED:20200609T081725Z
+STATUS;X-TEST-PARAM=10:CONFIRMED
+TRANSP:OPAQUE
+END:VEVENT
+END:VCALENDAR"
+    parse-calendar))
+
+(define twice-converted
+  (-> ev
+      vcomponent->sxcal
+      sxcal->vcomponent))
+
+;;; NOTE both these tests may fail since neither attributes nor properties are ordered sorted.
+
+(test-equal "c->x & c->x->c->x"
+  (vcomponent->sxcal ev)
+  (vcomponent->sxcal twice-converted))
+
+(test-equal "xcal properties"
+  '((X-TEST-PARAM "10"))
+  (properties (attr* (car (children twice-converted))
+                     'STATUS)))
-- 
cgit v1.2.3