tests/vcomponent.scm


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:DUMMY
KEY:value
END:DUMMY"
             parse-calendar))

(test-assert (eq? #f (attr ev 'MISSING)))
(test-assert (attr ev 'KEY))
(test-equal "value" (attr ev 'KEY))