aboutsummaryrefslogtreecommitdiff
path: root/tests/test/xcal.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test/xcal.scm')
-rw-r--r--tests/test/xcal.scm59
1 files changed, 0 insertions, 59 deletions
diff --git a/tests/test/xcal.scm b/tests/test/xcal.scm
deleted file mode 100644
index 87468370..00000000
--- a/tests/test/xcal.scm
+++ /dev/null
@@ -1,59 +0,0 @@
-;;; Commentary:
-;; Basic tests of xcal convertion.
-;; Currently only checks that events survive a round trip.
-;;; Code:
-
-(define-module (test xcal)
- :use-module (srfi srfi-64)
- :use-module (srfi srfi-88)
- :use-module (datetime)
- :use-module ((vcomponent create)
- :select (vcalendar vevent with-parameters))
- :use-module ((vcomponent formats xcal parse)
- :select (sxcal->vcomponent))
- :use-module ((vcomponent formats xcal output)
- :select (vcomponent->sxcal))
- :use-module ((hnh util) :select (->))
- :use-module ((vcomponent base)
- :select (parameters prop* children)))
-
-;;; Some different types, same parameters
-
-(define ev
- (vcalendar
- version: "2.0"
- prodid: "-//calparse-test"
- (list (vevent
- summary: "Test event"
- dtstart: (with-parameters
- tzid: "Europe/Stockholm"
- #2020-06-25T13:30:00)
- dtend: #2020-06-25T14:30:00Z
- dtstamp: #2020-06-09T13:14:18Z
- uid: "1"
- sequence: 0
- created: #2020-06-09T08:17:25Z
- description: "Short description"
- last-modified: #2020-06-09T08:17:25Z
- status: (with-parameters
- x-test-param: 10
- 'CONFIRMED)
- transp: 'OPAQUE))))
-
-(define twice-converted
- (-> ev vcomponent->sxcal sxcal->vcomponent))
-
-;;; NOTE both these tests may fail since neither properties nor parameters are ordered sorted.
-
-(test-equal
- "c->x & c->x->c->x"
- (vcomponent->sxcal ev)
- (vcomponent->sxcal twice-converted))
-
-(test-equal
- "xcal parameters"
- '((X-TEST-PARAM "10"))
- (parameters
- (prop* (car (children twice-converted)) 'STATUS)))
-
-