From da8cb4801a3ab35070f380e22aea3d260f9df8aa Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Wed, 29 Aug 2007 15:26:32 +0000 Subject: [PATCH] 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. --- .gitignore | 1 + tests/foreign-stack-alignment.impure.lisp | 3 +++ tests/stream.impure.lisp | 7 +++++-- tests/threads.impure.lisp | 2 +- version.lisp-expr | 2 +- 5 files changed, 11 insertions(+), 4 deletions(-) diff --git a/.gitignore b/.gitignore index ebf73d0..138c98d 100644 --- 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 --- 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 --- 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)) ;;; 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 --- 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 --- 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" -- 1.7.10.4