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")