diff options
Diffstat (limited to 'tests/vcomponent.scm')
-rw-r--r-- | tests/vcomponent.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/vcomponent.scm b/tests/vcomponent.scm new file mode 100644 index 00000000..c64f1a9b --- /dev/null +++ b/tests/vcomponent.scm @@ -0,0 +1,12 @@ +(((vcomponent base) attr) + ((vcomponent) parse-calendar)) + +(define ev (call-with-input-string + "BEGIN:VEVENT +KEY:value +END:VEVENT" + parse-calendar)) + +(test-assert (eq? #f (attr ev 'MISSING)) ) +(test-assert (attr ev 'KEY)) +(test-equal "value" (attr ev 'KEY)) |