diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 03:00:20 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-02-23 04:04:04 +0100 |
commit | 2de493b798997027758fb3540c796a3f06f9ade1 (patch) | |
tree | 98a2fe150732a34554454c0cf873ece1481f0abb /tests/test/vcomponent.scm | |
parent | Change group-by to return direct pairs. (diff) | |
download | calp-2de493b798997027758fb3540c796a3f06f9ade1.tar.gz calp-2de493b798997027758fb3540c796a3f06f9ade1.tar.xz |
Start using (vcomponent create) in tests.
This allows us to focus on what we are testing, instead of on the parser
in question. It also makes the code parser-agnostic.
Diffstat (limited to 'tests/test/vcomponent.scm')
-rw-r--r-- | tests/test/vcomponent.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/test/vcomponent.scm b/tests/test/vcomponent.scm index 68715462..52e1b6bb 100644 --- a/tests/test/vcomponent.scm +++ b/tests/test/vcomponent.scm @@ -7,14 +7,12 @@ :use-module (srfi srfi-88) :use-module ((vcomponent base) :select (prop make-vcomponent add-child! remove-child! - children)) - :use-module ((vcomponent formats ical parse) - :select (parse-calendar))) + children))) (define ev - (call-with-input-string - "BEGIN:DUMMY\nX-KEY:value\nEND:DUMMY" - parse-calendar)) + (let ((ev (make-vcomponent 'DUMMY))) + (set! (prop ev 'X-KEY) "value") + ev)) (test-assert (eq? #f (prop ev 'MISSING))) |