summaryrefslogtreecommitdiff
path: root/test-suite/lib.scm
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-01-26 16:49:28 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2001-01-26 16:49:28 +0000
commitefb07c899c29d5bfe89eb599fad935c0fc3cc081 (patch)
treed50ded07ceefe96abbfab5889607b91832f4ff65 /test-suite/lib.scm
parent8992c8a2eff76d02794ba9350433a623b5889fdc (diff)
downloadguile-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.scm14
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 ...)