1 files changed, 0 insertions, 120 deletions
diff --git a/tests/test/add-and-save.scm b/tests/test/add-and-save.scm
deleted file mode 100644
index 1ab6f660..00000000
--- a/tests/test/add-and-save.scm
+++ /dev/null
@@ -1,120 +0,0 @@
-(define-module (test add-and-save)
-  :use-module (srfi srfi-64)
-  :use-module (srfi srfi-88)
-  :use-module (hnh util)
-  :use-module (datetime)
-  ;; :use-module ((vcomponent) :select (prop))
-  :use-module ((vcomponent base) :select (prop type children make-vcomponent))
-  :use-module ((srfi srfi-1) :select (find))
-  :use-module ((vcomponent formats vdir save-delete) :select (save-event))
-  :use-module ((vcomponent formats xcal parse) :select (sxcal->vcomponent))
-  :use-module ((vcomponent util instance methods)
-               :select (add-calendars
-                        add-and-save-event
-                        remove-event
-                        )))
-
-;; TODO is this how I want to format direct components?
-
-(define timezone
-  '(vtimezone
-    (properties (tzid (text "Europe/Stockholm")))
-    (components
-     (standard
-      (properties
-       (tzoffsetto (utc-offset "+0100"))
-       (dtstart (date-time "1996-10-27T01:00:00"))
-       (tzname (text "CET"))
-       (tzoffsetfrom (utc-offset "+0200"))
-       (rrule (recur (freq "YEARLY")
-                     (interval "1")
-                     ((byday "-1SU"))
-                     ((bymonth 10))))))
-     (daylight
-      (properties
-       (tzoffsetto (utc-offset "+0200"))
-       (dtstart (date-time "1981-03-29T01:00:00"))
-       (tzname (text "CEST"))
-       (tzoffsetfrom (utc-offset "+0000"))
-       (rrule (recur (freq "YEARLY")
-                     (interval "1")
-                     ((byday "-1SU"))
-                     ((bymonth 3))))))))  )
-
-(define ev
-  (sxcal->vcomponent
-   '(vevent
-     (properties
-      (uid (text "3da506ad-8d27-4810-94b3-6ab341baa1f2"))
-      (summary (text "Test Event #1"))
-      (dtstart
-       (parameters (tzid (text "Europe/Stockholm")))
-       (date-time "2021-12-21T10:30:00"))
-      (dtstamp (date-time "2021-12-21T14:10:56Z"))
-      (dtend (parameters (tzid (text "Europe/Stockholm")))
-             (date-time "2021-12-21T11:45:00"))))))
-
-(define rep-ev
-  (sxcal->vcomponent
-    '(vevent
-      (properties
-       (uid (text "4ebd6632-d192-4bf4-a33a-7a8388185914"))
-       (summary (text "Repeating Test Event #1"))
-       (rrule (recur (freq "DAILY")))
-       (dtstart
-        (parameters (tzid (text "Europe/Stockholm")))
-        (date-time "2021-12-21T10:30:00"))
-       (dtstamp (date-time "2021-12-21T14:10:56Z"))
-       (dtend (parameters (tzid (text "Europe/Stockholm")))
-              (date-time "2021-12-21T11:45:00"))))))
-
-(define directory (tmpnam))
-
-(define event-object ((@ (oop goops) make)
-                      (@@ (vcomponent util instance methods) <events>)))
-
-(mkdir directory)
-(format #t "Using ~a~%" directory)
-
-(define calendar (make-vcomponent 'VCALENDAR))
-
-(set! (prop calendar '-X-HNH-SOURCETYPE) 'vdir
-      (prop calendar '-X-HNH-DIRECTORY) directory)
-
-(add-calendars event-object calendar)
-
-;; Try adding   and saving a  new      regular   event
-(add-and-save-event event-object calendar ev)
-
-;; Try changing and saving an existing regular   event
-(set! (prop ev 'SUMMARY) "Changed summary")
-(add-and-save-event event-object calendar ev)
-
-;; Try adding   and saving a  new      repeating event
-(add-and-save-event event-object calendar rep-ev)
-
-;; Try changing and saving an existing repeating event
-;; TODO setting start time to later than end time leads to nonsense
-;; errors when trying to generate the recurrence set.
-(set! (prop rep-ev 'DTSTART) (datetime+ (prop rep-ev 'DTSTART)
-                                        (datetime time: (time hour: 1))))
-(add-and-save-event event-object calendar rep-ev)
-
-;; Try adding   and saving a  new                event with multiple instances
-;; Try changing and saving an existing           event with multiple instances
-
-;; (add-and-save-event event-object calendar event)
-
-
-(test-equal "Correct amount of children in calendar"
-  2 (length (children calendar)))
-
-
-(define get-events (@@ (vcomponent util instance methods) get-events))
-(test-equal "Event object contains correct number of events (single calendar)"
-  2 (length (get-events event-object)))
-
-(remove-event event-object (car (get-events event-object)))
-
-(test-equal "Correct number of events after removing first element"
-  1 (length (get-events event-object)))