guile/guile-core/test-suite ChangeLog tests/por...

[Gary Houston]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Gary Houston <> 01/04/25 16:13:52

Modified files:
        guile-core/test-suite: ChangeLog 
        guile-core/test-suite/tests: ports.test load.test r4rs.test 

Log message:
        * 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.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/ChangeLog.diff?cvsroot=OldCVS&tr1=1.75&tr2=1.76&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/ports.test.diff?cvsroot=OldCVS&tr1=1.24&tr2=1.25&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/load.test.diff?cvsroot=OldCVS&tr1=1.2&tr2=1.3&r1=text&r2=text
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/test-suite/tests/r4rs.test.diff?cvsroot=OldCVS&tr1=1.6&tr2=1.7&r1=text&r2=text

Patches:
Index: guile/guile-core/test-suite/ChangeLog
diff -u guile/guile-core/test-suite/ChangeLog:1.75 
guile/guile-core/test-suite/ChangeLog:1.76
--- guile/guile-core/test-suite/ChangeLog:1.75  Mon Apr  2 06:40:03 2001
+++ guile/guile-core/test-suite/ChangeLog       Wed Apr 25 16:13:51 2001
@@ -1,3 +1,13 @@
+2001-04-26  Gary Houston  <address@hidden>
+
+       * 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  <address@hidden>
 
        * tests/symbols.c:  Added some tests.
Index: guile/guile-core/test-suite/tests/load.test
diff -u guile/guile-core/test-suite/tests/load.test:1.2 
guile/guile-core/test-suite/tests/load.test:1.3
--- guile/guile-core/test-suite/tests/load.test:1.2     Fri Sep  3 01:00:14 1999
+++ guile/guile-core/test-suite/tests/load.test Wed Apr 25 16:13:52 2001
@@ -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)
Index: guile/guile-core/test-suite/tests/ports.test
diff -u guile/guile-core/test-suite/tests/ports.test:1.24 
guile/guile-core/test-suite/tests/ports.test:1.25
--- guile/guile-core/test-suite/tests/ports.test:1.24   Wed Feb 28 03:25:40 2001
+++ guile/guile-core/test-suite/tests/ports.test        Wed Apr 25 16:13:51 2001
@@ -27,7 +27,7 @@
   (newline))
 
 (define (test-file)
-  (tmpnam))
+  (data-file-name "ports-test.tmp"))
 
 
 ;;;; Some general utilities for testing ports.
Index: guile/guile-core/test-suite/tests/r4rs.test
diff -u guile/guile-core/test-suite/tests/r4rs.test:1.6 
guile/guile-core/test-suite/tests/r4rs.test:1.7
--- guile/guile-core/test-suite/tests/r4rs.test:1.6     Mon Mar 19 14:46:21 2001
+++ guile/guile-core/test-suite/tests/r4rs.test Wed Apr 25 16:13:52 2001
@@ -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"))