* tests/r4rs.test: delete files tmp1, tmp2, tmp3 after the tests

have run.

	* tests/ports.test (test-file), tests/load.test (temp-dir):
	redefined using data-file-name instead of tmpnam.  the test files
	will be created in the build directory instead of /var/tmp or
	whereever tmpnam puts them.

test-suite/ChangeLog

@@ -1,3 +1,13 @@
+2001-04-26  Gary Houston  <ghouston@arglist.com>
+
+	* tests/r4rs.test: delete files tmp1, tmp2, tmp3 after the tests
+	have run.
+
+	* tests/ports.test (test-file), tests/load.test (temp-dir):
+	redefined using data-file-name instead of tmpnam.  the test files
+	will be created in the build directory instead of /var/tmp or
+	whereever tmpnam puts them.
+
 2001-04-02  Dirk Herrmann  <D.Herrmann@tu-bs.de>
 
 	* tests/symbols.c:  Added some tests.

test-suite/tests/load.test

@@ -20,7 +20,7 @@
 
 (use-modules (test-suite lib))
 
-(define temp-dir (tmpnam))
+(define temp-dir (data-file-name "load-test.dir"))
 
 (define (create-tree parent tree)
   (let loop ((parent parent)

test-suite/tests/ports.test

@@ -27,7 +27,7 @@
   (newline))
 
 (define (test-file)
-  (tmpnam))
+  (data-file-name "ports-test.tmp"))
 
 
 ;;;; Some general utilities for testing ports.

test-suite/tests/r4rs.test

@@ -1018,3 +1018,7 @@
 ;; alternatively execute every test file's code in a module of its own
 (if (defined? 'x) (undefine x))
 (if (defined? 'y) (undefine y))
+
+(delete-file (data-file-name "tmp1"))
+(delete-file (data-file-name "tmp2"))
+(delete-file (data-file-name "tmp3"))