projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kill leftover threads after each test
[sbcl.git]
/
tests
/
threads.pure.lisp
diff --git
a/tests/threads.pure.lisp
b/tests/threads.pure.lisp
index
2db34c2
..
d4a5192
100644
(file)
--- a/
tests/threads.pure.lisp
+++ b/
tests/threads.pure.lisp
@@
-495,12
+495,12
@@
:skipped-on '(not :sb-thread))
(assert (eq :error
(handler-case
:skipped-on '(not :sb-thread))
(assert (eq :error
(handler-case
- (join-thread (make-thread (lambda () (sleep 10))) :timeout 0.01)
+ (join-thread (make-join-thread (lambda () (sleep 10))) :timeout 0.01)
(join-thread-error ()
:error))))
(let ((cookie (cons t t)))
(assert (eq cookie
(join-thread-error ()
:error))))
(let ((cookie (cons t t)))
(assert (eq cookie
- (join-thread (make-thread (lambda () (sleep 10)))
+ (join-thread (make-join-thread (lambda () (sleep 10)))
:timeout 0.01
:default cookie)))))
:timeout 0.01
:default cookie)))))
@@
-526,7
+526,7
@@
#+sb-thread
(sb-thread::block-deferrable-signals))))))
(let* ((threads (loop for i from 1 upto 100
#+sb-thread
(sb-thread::block-deferrable-signals))))))
(let* ((threads (loop for i from 1 upto 100
- collect (make-thread #'critical :name (format nil "T~A" i))))
+ collect (make-join-thread #'critical :name (format nil "T~A" i))))
(safe nil)
(unsafe nil)
(interruptor (make-thread (lambda ()
(safe nil)
(unsafe nil)
(interruptor (make-thread (lambda ()