diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:11:38 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-12-30 02:11:38 +0100 |
commit | b6d12e309b207c25de7873f658aa0f88ea77080c (patch) | |
tree | ea4a8515c4c5b3e6798f6b3b69e24ad76f53b883 /tests/prop.scm | |
parent | Fix keyword argument. (diff) | |
download | calp-b6d12e309b207c25de7873f658aa0f88ea77080c.tar.gz calp-b6d12e309b207c25de7873f658aa0f88ea77080c.tar.xz |
Reworked tests.
Diffstat (limited to 'tests/prop.scm')
-rw-r--r-- | tests/prop.scm | 13 |
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)) |