aboutsummaryrefslogtreecommitdiff
path: root/tests/test/vcomponent.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test/vcomponent.scm')
-rw-r--r--tests/test/vcomponent.scm10
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)))