blob: c64f1a9b10d5136025102fe2c9494b224a0d06c4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
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))
|