aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2023-04-18 19:33:21 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2023-04-21 15:58:41 +0200
commitef4b5242bad52bb3d6baba38936612711e3a96aa (patch)
tree098c865d868cf7252f842e5cc8ba6f74cb1c0f44
parentAdd tests for serialization foramts. (diff)
downloadcalp-ef4b5242bad52bb3d6baba38936612711e3a96aa.tar.gz
calp-ef4b5242bad52bb3d6baba38936612711e3a96aa.tar.xz
Remove old unit-test style seraliazation tests.
-rw-r--r--tests/test/data-formats/ical.scm40
-rw-r--r--tests/test/data-formats/xcal.scm0
-rw-r--r--tests/test/xcal.scm59
3 files changed, 0 insertions, 99 deletions
diff --git a/tests/test/data-formats/ical.scm b/tests/test/data-formats/ical.scm
deleted file mode 100644
index b529cf16..00000000
--- a/tests/test/data-formats/ical.scm
+++ /dev/null
@@ -1,40 +0,0 @@
-(define-module (test data-formats ical)
- :use-module (srfi srfi-64)
- :use-module (srfi srfi-88)
- :use-module (vcomponent formats ical)
- )
-
-;; (serialize)
-
-;; (deserialize)
-
-(call-with-input-string "BEGIN:VCALENDAR
-VERSION:2.0
-PRODID:-//PIMUTILS.ORG//NONSGML khal / icalendar //EN
-BEGIN:VTIMEZONE
-TZID:Europe/Stockholm
-BEGIN:DAYLIGHT
-DTSTART;VALUE=DATE-TIME:20180325T030000
-TZNAME:CEST
-TZOFFSETFROM:+0100
-TZOFFSETTO:+0200
-END:DAYLIGHT
-BEGIN:STANDARD
-DTSTART;VALUE=DATE-TIME:20181028T020000
-TZNAME:CET
-TZOFFSETFROM:+0200
-TZOFFSETTO:+0100
-END:STANDARD
-END:VTIMEZONE
-BEGIN:VEVENT
-SUMMARY:Backhäfv
-DTSTART;TZID=Europe/Stockholm;VALUE=DATE-TIME:20180907T170000
-DTEND;TZID=Europe/Stockholm;VALUE=DATE-TIME:20180907T180000
-DTSTAMP;VALUE=DATE-TIME:20180907T154223Z
-UID:ZSGUP6BTM52UV42SEWBICHSS63V8DYQX5TSZ
-SEQUENCE:0
-END:VEVENT
-END:VCALENDAR" deserialize)
-
-
-
diff --git a/tests/test/data-formats/xcal.scm b/tests/test/data-formats/xcal.scm
deleted file mode 100644
index e69de29b..00000000
--- a/tests/test/data-formats/xcal.scm
+++ /dev/null
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)))
-
-