From c286ee7d410950152177d209c20a843d4a3f8c26 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Wed, 3 Apr 2019 22:21:20 +0200 Subject: Update tests. --- tests/prop.scm | 16 ++++------------ 1 file changed, 4 insertions(+), 12 deletions(-) mode change 100755 => 100644 tests/prop.scm (limited to 'tests/prop.scm') diff --git a/tests/prop.scm b/tests/prop.scm old mode 100755 new mode 100644 index 649e30e4..d63703cd --- 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"))) -- cgit v1.2.3