diff options
Diffstat (limited to 'tests')
-rwxr-xr-x | tests/prop.scm | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/tests/prop.scm b/tests/prop.scm new file mode 100755 index 00000000..649e30e4 --- /dev/null +++ b/tests/prop.scm @@ -0,0 +1,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") |