diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-05-11 21:18:07 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-05-11 21:18:07 +0200 |
commit | bdf660318f63375700725217779a3fd1c6c07497 (patch) | |
tree | e67f46eb465443c4696835ccbf2afab05ce54482 /tests/test/add-and-save.scm | |
parent | Add procedure with-working-directory. (diff) | |
download | calp-bdf660318f63375700725217779a3fd1c6c07497.tar.gz calp-bdf660318f63375700725217779a3fd1c6c07497.tar.xz |
Add (currently failing) tests for remove-event.
Diffstat (limited to '')
-rw-r--r-- | tests/test/add-and-save.scm | 18 |
1 files 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))) |