diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-03 22:21:20 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-04-03 22:24:45 +0200 |
| commit | c286ee7d410950152177d209c20a843d4a3f8c26 (patch) | |
| tree | e373e3b04b5b47f21be504fcad65a498a28dc5c7 /tests/prop.scm | |
| parent | Add parser for BYDAY RRULE's. (diff) | |
| download | calp-c286ee7d410950152177d209c20a843d4a3f8c26.tar.gz calp-c286ee7d410950152177d209c20a843d4a3f8c26.tar.xz | |
Update tests.
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"))) |