diff options
Diffstat (limited to 'tests/formats/xcal.scm')
-rw-r--r-- | tests/formats/xcal.scm | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/tests/formats/xcal.scm b/tests/formats/xcal.scm deleted file mode 100644 index 4c27931a..00000000 --- a/tests/formats/xcal.scm +++ /dev/null @@ -1,26 +0,0 @@ -(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)) |