diff options
Diffstat (limited to '')
-rw-r--r-- | tests/test/xcal.scm | 59 |
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))) - - |