From 8eab5b0063137f8008562c5069a9f14ed34355b9 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 18 Apr 2023 19:30:51 +0200
Subject: Add tests for serialization foramts.

These are outside the regular unit testing, since they are more of end
to end tests. Parts of this functionality is however still in the unit
tests.
---
 tests/formats/xcal.scm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 tests/formats/xcal.scm

(limited to 'tests/formats/xcal.scm')

diff --git a/tests/formats/xcal.scm b/tests/formats/xcal.scm
new file mode 100644
index 00000000..4c27931a
--- /dev/null
+++ b/tests/formats/xcal.scm
@@ -0,0 +1,26 @@
+(define-module (xcal)
+  :use-module (srfi srfi-88)
+  :use-module (hnh test xmllint)
+  :use-module (hnh util path)
+  :use-module ((rnrs io ports) :select (get-string-all))
+  :use-module ((vcomponent formats xcal) :prefix #{xcs:}#)
+  :use-module ((calp namespaces) :select (xcal))
+  :export (sanitize-string
+           serialize
+           deserialize
+           component-str))
+
+(define (sanitize-string str)
+  (xmllint str))
+
+(define serialize
+  (lambda (component port)
+    (xcs:serialize
+     component port namespaces: `((,xcal . c))
+     )))
+
+(define deserialize xcs:deserialize)
+
+(define component-str
+  (call-with-input-file (path-append (getenv "here") "event.xcs")
+    get-string-all))
-- 
cgit v1.2.3