blob: d63703cd8286bd4d03ccad36c13bc228a0331080 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
(use-modules (vcalendar))
(define v (make-vcomponent
(string-append (getenv "TESTPATH")
"/prop.ics")))
(test-begin "Proporty test")
(test-equal (prop v 'KEY 'A) '(("1")))
(test-equal (prop v 'KEY 'B) '(("2")))
(test-equal (prop v 'KEY 'C) '())
(test-equal (properties v 'KEY) '(A B))
(test-equal (properties v "KEY") '(A B))
(test-end "Proporty test")
|
