blob: 28f1cf91e4de08e518ae31bbabeba14a9bdf937f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
;;; Commentary:
;; Test that vcomponent parsing works at all.
;;; Code:
(((vcomponent base) prop)
((vcomponent) parse-calendar))
(define ev (call-with-input-string
"BEGIN:DUMMY
X-KEY:value
END:DUMMY"
parse-calendar))
(test-assert (eq? #f (prop ev 'MISSING)))
(test-assert (prop ev 'X-KEY))
(test-equal "value" (prop ev 'X-KEY))
|