diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-01-26 16:49:28 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2001-01-26 16:49:28 +0000 |
commit | efb07c899c29d5bfe89eb599fad935c0fc3cc081 (patch) | |
tree | d50ded07ceefe96abbfab5889607b91832f4ff65 /test-suite/lib.scm | |
parent | 8992c8a2eff76d02794ba9350433a623b5889fdc (diff) | |
download | guile-efb07c899c29d5bfe89eb599fad935c0fc3cc081.tar.gz |
* Fixed things that I had broken with the last patch :-(
Diffstat (limited to 'test-suite/lib.scm')
-rw-r--r-- | test-suite/lib.scm | 14 |
1 files changed, 1 insertions, 13 deletions
diff --git a/test-suite/lib.scm b/test-suite/lib.scm index fa730973b..87efcc034 100644 --- a/test-suite/lib.scm +++ b/test-suite/lib.scm @@ -16,8 +16,7 @@ ;;;; the Free Software Foundation, Inc., 59 Temple Place, Suite 330, ;;;; Boston, MA 02111-1307 USA -(define-module (test-suite lib) - #:use-module (test-suite paths)) +(define-module (test-suite lib)) (export @@ -425,17 +424,6 @@ (set! default-reporter full-reporter) -;;;; Helping test cases find their files - -;;; Returns FILENAME, relative to the directory the test suite data -;;; files were installed in, and makes sure the file exists. -(define (data-file filename) - (let ((f (in-vicinity datadir filename))) - (or (file-exists? f) - (error "Test suite data file does not exist: " f)) - f)) - - ;;;; Detecting whether errors occur ;;; (signals-error? KEY BODY ...) |