diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-18 19:33:21 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-04-21 15:58:41 +0200 |
commit | ef4b5242bad52bb3d6baba38936612711e3a96aa (patch) | |
tree | 098c865d868cf7252f842e5cc8ba6f74cb1c0f44 /tests/test/xcal.scm | |
parent | Add tests for serialization foramts. (diff) | |
download | calp-ef4b5242bad52bb3d6baba38936612711e3a96aa.tar.gz calp-ef4b5242bad52bb3d6baba38936612711e3a96aa.tar.xz |
Remove old unit-test style seraliazation tests.
Diffstat (limited to 'tests/test/xcal.scm')
-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))) - - |