From: Joshua Elsasser <joshua@elsasser.org>
Date: Wed, 24 Aug 2011 04:31:07 +0000 (-0700)
Subject: Create a dummy test-status.lisp-expr when running shell tests.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6d3e70a6964aaf09368125ac9f280e65542692da;p=sbcl.git

Create a dummy test-status.lisp-expr when running shell tests.

The test-status.lisp-expr file isn't used for shell tests, but the
impure runner doesn't know that and tries to read it
anyway. Initialize the file before running shell tests to avoid
reporting failures from the last test run, or failing entirely if it
doesn't exist.
---

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 80e28ac..0069333 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -200,6 +200,8 @@
                                       (list (native-namestring ,file))
                                       :environment (test-util::test-env)
                                       :output *error-output*)))
+     (let ((*failures* nil))
+       (test-util:report-test-status))
      (sb-ext:quit :unix-status (process-exit-code process))))
 
 (defun accept-test-file (file)