* Fixed things that I had broken with the last patch :-(

[bpt/guile.git] / test-suite / lib.scm

diff --git a/test-suite/lib.scm b/test-suite/lib.scm
index fa73097..87efcc0 100644 (file)
--- 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)
 
 \f
-;;;; 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))
-
-\f
 ;;;; Detecting whether errors occur
 
 ;;; (signals-error? KEY BODY ...)