From c56c0f7966ea1f41645f146fc212f5f0b7d77ea5 Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Sat, 27 May 2006 22:24:24 +0000 Subject: [PATCH] Delete test file after all tests have run in order to make "make distcheck" work. --- test-suite/ChangeLog | 5 +++++ test-suite/tests/filesys.test | 2 ++ test-suite/tests/ports.test | 2 ++ 3 files changed, 9 insertions(+) diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog index 24ba1ca77..386eda17e 100644 --- a/test-suite/ChangeLog +++ b/test-suite/ChangeLog @@ -1,3 +1,8 @@ +2006-05-28 Marius Vollmer + + * 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 * 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 14776527f..b9913c2f2 100644 --- 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 15f888e00..b738dc9f2 100644 --- 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)) -- 2.20.1