1.0.9.10: make tests clean up after themselves a bit better

* Delete various temporary files (still some left).

* Also add test/test-status.lisp-expr to .gitignore.

diff --git a/.gitignore b/.gitignore
index ebf73d0..138c98d 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -22,6 +22,7 @@ src/runtime/target-arch-os.h
 src/runtime/target-arch.h
 src/runtime/target-lispregs.h
 src/runtime/target-os.h
+tests/test-status.lisp-expr
 tools-for-build/grovel-headers
 contrib/*/test-passed
 contrib/*/foo.c

diff --git a/tests/foreign-stack-alignment.impure.lisp b/tests/foreign-stack-alignment.impure.lisp
index 3900f60..c678e22 100644 (file)
--- a/tests/foreign-stack-alignment.impure.lisp
+++ b/tests/foreign-stack-alignment.impure.lisp
@@ -75,4 +75,7 @@
   (assert (= *good-offset* (trampoline (alien-lambda int ()
                                        (stack-alignment-offset *required-alignment*))))))
 
+(delete-file "stack-alignment-offset")
+(delete-file "stack-alignment-offset.so")
+
 ;;;; success!

diff --git a/tests/stream.impure.lisp b/tests/stream.impure.lisp
index f91b159..bc069b7 100644 (file)
--- a/tests/stream.impure.lisp
+++ b/tests/stream.impure.lisp
@@ -302,7 +302,8 @@
         (type-error (condition)
           (assert (eql (type-error-datum condition) (code-char 255)))
           (assert (subtypep (type-error-expected-type condition)
-                            '(signed-byte 8))))))))
+                            '(signed-byte 8)))))))
+  (delete-file pathname))
 \f
 ;;; Check WRITE-SEQUENCE signals a TYPE-ERROR when the stream can't
 ;;; write a sequence element.
@@ -413,7 +414,9 @@
       (type-error (condition)
         (assert (= (type-error-datum condition) -1))
         (assert (subtypep (type-error-expected-type condition)
-                          '(unsigned-byte 8)))))))
+                          '(unsigned-byte 8))))))
+  
+  (delete-file pathname))
 
 ;;; writing looong lines. takes way too long and way too much space
 ;;; to test on 64 bit platforms

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index eb4fe5a..dd2544c 100644 (file)
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -107,7 +107,7 @@
  :search t)
 (sb-alien:load-shared-object "threads-foreign.so")
 (sb-alien:define-alien-routine loop-forever sb-alien:void)
-
+(delete-file "threads-foreign.c")
 
 ;;; elementary "can we get a lock and release it again"
 (let ((l (make-mutex :name "foo"))

diff --git a/version.lisp-expr b/version.lisp-expr
index 0cee396..e91bf0f 100644 (file)
--- 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".)
-"1.0.9.9"
+"1.0.9.10"