(3 nil (#\1 #\2 #\3) nil)
(0 t nil t))
+#+sb-thread
(deftest mailbox-timeouts
(let* ((mbox (make-mailbox))
(writers (loop for i from 1 upto 20
(apply #'+ (mapcar #'join-thread readers)))
1000)
-;;; FIXME: Several tests disabled on Darwin and SunOS due to hangs.
+;;; FIXME: Several tests disabled on SunOS due to hangs.
;;;
-;;; On Darwin at least the issues don't seem to have anything to do with
-;;; mailboxes per-se, but are rather related to our usage of signal-unsafe
+;;; The issues don't seem to have anything to do with mailboxes
+;;; per-se, but are rather related to our usage of signal-unsafe
;;; pthread functions inside signal handlers.
-#+(and sb-thread (not (or darwin sunos)))
+#+(and sb-thread (not sunos))
(progn
;; Dummy struct for ATOMIC-INCF to work.
(:timeouts . 0))
(deftest mailbox.multiple-producers-multiple-consumers
- (test-mailbox-producers-consumers :n-senders 100
- :n-receivers 100
+ (test-mailbox-producers-consumers :n-senders 50
+ :n-receivers 50
:n-messages 1000)
- (:received . 100000)
+ (:received . 50000)
(:garbage . 0)
(:errors . 0)
(:timeouts . 0))
(deftest mailbox.interrupts-safety.1
(multiple-value-bind (received garbage errors timeouts)
(test-mailbox-producers-consumers
- :n-senders 100
- :n-receivers 100
+ :n-senders 50
+ :n-receivers 50
:n-messages 1000
:interruptor #'(lambda (threads &aux (n (length threads)))
;; 99 so even in the unlikely case that only