aboutsummaryrefslogtreecommitdiff
path: root/tests/prop.scm
diff options
context:
space:
mode:
Diffstat (limited to 'tests/prop.scm')
-rw-r--r--tests/prop.scm13
1 files changed, 8 insertions, 5 deletions
diff --git a/tests/prop.scm b/tests/prop.scm
index 15ccb355..a302d790 100644
--- a/tests/prop.scm
+++ b/tests/prop.scm
@@ -1,9 +1,12 @@
-(use-modules (vcomponent)
- (util))
+(((vcomponent base) prop attr* properties)
+ ((vcomponent parse) parse-calendar)
+ ((util) sort*))
-(define v (make-vcomponent
- (string-append (getenv "TESTPATH")
- "/prop.ics")))
+(define v (call-with-input-string
+ "BEGIN:VCOMPONENT
+KEY;A=1;B=2:Some text
+END:VCOMPONENT"
+ parse-calendar))
(test-equal '("1") (prop (attr* v 'KEY) 'A))
(test-equal '("2") (prop (attr* v 'KEY) 'B))