diff options
Diffstat (limited to 'tests/prop.scm')
-rw-r--r--[-rwxr-xr-x] | tests/prop.scm | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/tests/prop.scm b/tests/prop.scm index 649e30e4..d63703cd 100755..100644 --- a/tests/prop.scm +++ b/tests/prop.scm @@ -1,16 +1,8 @@ -#!/usr/bin/guile -s -!# +(use-modules (vcalendar)) -(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"))) +(define v (make-vcomponent + (string-append (getenv "TESTPATH") + "/prop.ics"))) (test-begin "Proporty test") (test-equal (prop v 'KEY 'A) '(("1"))) |