mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

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

Browse source 
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.
This commit is contained in:
Gary Houston 2001-04-25 23:13:52 +00:00
parent 8acc3515a0
commit c685b42fa3
4 changed files with 16 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
test-suite/ChangeLog
View file

@ -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.

2
test-suite/tests/load.test
View file

@ -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)

2
test-suite/tests/ports.test
View file

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

4
test-suite/tests/r4rs.test
View file

@ -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"))