summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
ed89a3d)
Minor test cleanups: remove temporary files after tests finish.
:if-exists :supersede)
(write-string "(defun dumped-manyraws () '#.*manyraw*)" s))
(compile-file "tmp-defstruct.manyraw.lisp")
: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)
;;; nuke the objects and try another GC just to be extra careful
(setf *manyraw* nil)
(when p
(delete-file p)))))
(when p
(delete-file p)))))
+(delete-file "external-format-test.txt")
+
(sb-ext:quit :unix-status 104)
(sb-ext:quit :unix-status 104)
while true; do
if [ -f finalize-test-passed ]; then
echo "OK"
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"
exit 104 # Success
elif [ -f finalize-test-failed ]; then
echo "Failed"
+ rm finalize-test-failed
exit 1 # Failure
fi
sleep 1
exit 1 # Failure
fi
sleep 1
;;; 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".)
;;; 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".)