Update of /cvsroot/sbcl/sbcl/tests
In directory vz-cvs-3.sog:/tmp/cvs-serv23743/tests
Modified Files:
threads.impure.lisp
Log Message:
1.0.47.29: reinstate Darwin interrupt tests that now succeed
* runnability likely due to 1.0.42.50 which works around a Darwin nanosleep bug
Index: threads.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/threads.impure.lisp,v
retrieving revision 1.83
retrieving revision 1.84
diff -u -d -r1.83 -r1.84
--- threads.impure.lisp 27 Nov 2010 21:08:53 -0000 1.83
+++ threads.impure.lisp 23 Apr 2011 15:43:53 -0000 1.84
@@ -559,8 +559,6 @@
(defun alloc-stuff () (copy-list '(1 2 3 4 5)))
(with-test (:name (:interrupt-thread :interrupt-consing-child))
- #+darwin
- (error "Hangs on Darwin.")
(let ((thread (sb-thread:make-thread (lambda () (loop (alloc-stuff))))))
(let ((killers
(loop repeat 4 collect
@@ -580,8 +578,6 @@
#+(or x86 x86-64) ;; x86oid-only, see internal commentary.
(with-test (:name (:interrupt-thread :interrupt-consing-child :again))
- #+darwin
- (error "Hangs on Darwin.")
(let ((c (make-thread (lambda () (loop (alloc-stuff))))))
;; NB this only works on x86: other ports don't have a symbol for
;; pseudo-atomic atomicity
@@ -669,8 +665,6 @@
(assert (sb-thread:join-thread thread))))
(with-test (:name (:two-threads-running-gc))
- #+darwin
- (error "Hangs on Darwin.")
(let (a-done b-done)
(make-thread (lambda ()
(dotimes (i 100)
@@ -992,8 +986,6 @@
(format t "~&multiple reader hash table test done~%")
(with-test (:name (:hash-table-single-accessor-parallel-gc))
- #+darwin
- (error "Prone to hang on Darwin due to interrupt issues.")
(let ((hash (make-hash-table))
(*errors* nil))
(let ((threads (list (sb-thread:make-thread
|