Delete test file after all tests have run in order to make "make

distcheck" work.

diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index 24ba1ca..386eda1 100644 (file)
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2006-05-28  Marius Vollmer  <mvo@zagadka.de>
+
+       * tests/ports.test, tests/filesys.test: Delete test file after all
+       tests have run in order to make "make distcheck" work.
+
 2006-04-17  Kevin Ryde  <user42@zip.com.au>
 
        * tests/filesys.test (lstat): Allow for test-symlink not existing yet.

diff --git a/test-suite/tests/filesys.test b/test-suite/tests/filesys.test
index 1477652..b9913c2 100644 (file)
--- a/test-suite/tests/filesys.test
+++ b/test-suite/tests/filesys.test
@@ -125,3 +125,5 @@
        (close-port port)
        (eqv? 5 (stat:size st))))))
 
+(delete-file (test-file))
+(delete-file (test-symlink))

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 15f888e..b738dc9 100644 (file)
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -626,3 +626,5 @@
                    (procedure)))))
            (list read read-char read-line)
            '("read" "read-char" "read-line")))
+
+(delete-file (test-file))