Commit 05854d6d authored by Gabor Melis's avatar Gabor Melis
Browse files

1.0.24.38: improve test scripts

- robustify threads.test.sh even more
- fix the same bug related to $! in finalize.test.sh
- make condition-wait-sigcont.lisp work unithread builds
parent 4d5efa2b
Loading
Loading
Loading
Loading
+3 −0
Original line number Diff line number Diff line
@@ -21,7 +21,10 @@
  (write-line "/waiting")
  (force-output)
  (delete-file "condition-wait-sigcont.tmp")
  #+sb-thread
  (condition-wait *queue* *lock*)
  #-sb-thread
  (loop (sleep 10))
  (write-line "/woken")
  (force-output)
  (with-open-file (f "condition-wait-sigcont.tmp" :direction :output)
+2 −1
Original line number Diff line number Diff line
@@ -10,7 +10,8 @@ use_test_subdirectory

echo //entering finalize.test.sh

run_sbcl <<EOF > /dev/null &
# $! is not set correctly when calling run_sbcl, do it directly
"$SBCL_RUNTIME" --core "$SBCL_CORE" $SBCL_ARGS <<EOF > /dev/null &
(defvar *tmp* 0.0)
(defvar *count* 0)

+1 −2
Original line number Diff line number Diff line
@@ -18,8 +18,7 @@ flag="condition-wait-sigcont.tmp"
touch $flag

# $! is not set correctly when calling run_sbcl, do it directly
"$SBCL_RUNTIME" --core "$SBCL_CORE" \
    --no-userinit --no-sysinit --disable-debugger \
"$SBCL_RUNTIME" --core "$SBCL_CORE" $SBCL_ARGS \
    --load "$SBCL_PWD/condition-wait-sigcont.lisp" &
sb_pid=$!

+1 −1
Original line number Diff line number Diff line
@@ -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.24.37"
"1.0.24.38"