blob: 649e30e446ad1007ff865d1dca2ddd2186a89c03 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/guile -s
!#
(define *dir* (dirname (dirname (current-filename))))
(define (path subdir)
(string-append *dir* "/" subdir))
(add-to-load-path (path "module"))
(use-modules (srfi srfi-64)
(vcalendar))
(define v (make-vcomponent (path "testdata/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")
|