From df92e179529d2caf0c12ce337ef9a6329660cabd Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sun, 31 Mar 2019 00:15:26 +0100 Subject: Add test for properties from scheme. --- tests/prop.scm | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100755 tests/prop.scm (limited to 'tests') 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") -- cgit v1.2.3