From b41f8c974ccfba8a59ec2a6af843e8869e14be5f Mon Sep 17 00:00:00 2001 From: Rudi Schlatte Date: Tue, 28 Jun 2005 12:27:35 +0000 Subject: [PATCH] 0.9.2.2 Minor test cleanups: remove temporary files after tests finish. --- tests/defstruct.impure.lisp | 1 + tests/external-format.impure.lisp | 2 ++ tests/finalize.test.sh | 2 ++ version.lisp-expr | 2 +- 4 files changed, 6 insertions(+), 1 deletion(-) diff --git a/tests/defstruct.impure.lisp b/tests/defstruct.impure.lisp index 6102a14..45ba8a1 100644 --- a/tests/defstruct.impure.lisp +++ b/tests/defstruct.impure.lisp @@ -470,6 +470,7 @@ :if-exists :supersede) (write-string "(defun dumped-manyraws () '#.*manyraw*)" s)) (compile-file "tmp-defstruct.manyraw.lisp") +(delete-file "tmp-defstruct.manyraw.lisp") ;;; nuke the objects and try another GC just to be extra careful (setf *manyraw* nil) diff --git a/tests/external-format.impure.lisp b/tests/external-format.impure.lisp index f5a0f48..2cadc0c 100644 --- a/tests/external-format.impure.lisp +++ b/tests/external-format.impure.lisp @@ -131,4 +131,6 @@ (when p (delete-file p))))) +(delete-file "external-format-test.txt") + (sb-ext:quit :unix-status 104) diff --git a/tests/finalize.test.sh b/tests/finalize.test.sh index 222f1fb..5c7e4fe 100644 --- a/tests/finalize.test.sh +++ b/tests/finalize.test.sh @@ -47,9 +47,11 @@ echo "Waiting for SBCL to finish stress-testing finalizers" while true; do if [ -f finalize-test-passed ]; then echo "OK" + rm finalize-test-passed exit 104 # Success elif [ -f finalize-test-failed ]; then echo "Failed" + rm finalize-test-failed exit 1 # Failure fi sleep 1 diff --git a/version.lisp-expr b/version.lisp-expr index d5ce43f..c9e0ddc 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.9.2.1" +"0.9.2.2" -- 1.7.10.4