From bdf660318f63375700725217779a3fd1c6c07497 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 11 May 2022 21:18:07 +0200 Subject: Add (currently failing) tests for remove-event. --- tests/test/add-and-save.scm | 18 ++++++++++++++++-- 1 file changed, 16 insertions(+), 2 deletions(-) diff --git a/tests/test/add-and-save.scm b/tests/test/add-and-save.scm index 19e6c007..b58a6f06 100644 --- a/tests/test/add-and-save.scm +++ b/tests/test/add-and-save.scm @@ -8,7 +8,11 @@ :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))) + :use-module ((vcomponent util instance methods) + :select (add-calendars + add-and-save-event + remove-event + ))) (define timezone '(vtimezone @@ -100,5 +104,15 @@ ;; (add-and-save-event event-object calendar event) -(test-equal "Correct amount of children" +(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))) -- cgit v1.2.3