From ef4b5242bad52bb3d6baba38936612711e3a96aa Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 18 Apr 2023 19:33:21 +0200
Subject: Remove old unit-test style seraliazation tests.

---
 tests/test/data-formats/ical.scm | 40 ---------------------------
 tests/test/data-formats/xcal.scm |  0
 tests/test/xcal.scm              | 59 ----------------------------------------
 3 files changed, 99 deletions(-)
 delete mode 100644 tests/test/data-formats/ical.scm
 delete mode 100644 tests/test/data-formats/xcal.scm
 delete mode 100644 tests/test/xcal.scm

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
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)))
-
-
-- 
cgit v1.2.3