X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fsubr.sh;h=b96dd29bd3ea2b2302039ac7b958db8fb62eb7ba;hb=ee5629ee974ee8ce7a1cb245a99e94f8943ffd90;hp=333ffb66a6b2a3c69152547ae331c0ce67626e4d;hpb=26d0559df82a00acf85b8ec89541ee8e09bb3e55;p=sbcl.git

diff --git a/tests/subr.sh b/tests/subr.sh
index 333ffb6..b96dd29 100644
--- a/tests/subr.sh
+++ b/tests/subr.sh
@@ -119,6 +119,10 @@ check_status_maybe_lose () {
 # them consistently do so in subdirectories.  Note that such tests
 # should not change their exit action, or do so only very carefully.
 use_test_subdirectory () {
+    if test -d "$TEST_DIRECTORY"
+    then
+        cleanup_test_subdirectory
+    fi
     mkdir "$TEST_DIRECTORY"
     cd "$TEST_DIRECTORY"
     trap "cleanup_test_subdirectory" EXIT