At least one of the Tests which hang on Darwin also hang on SunOS.

[sbcl.git] / contrib / sb-concurrency / tests / test-mailbox.lisp

diff --git a/contrib/sb-concurrency/tests/test-mailbox.lisp b/contrib/sb-concurrency/tests/test-mailbox.lisp
index a0f0386..b93b344 100644 (file)
--- a/contrib/sb-concurrency/tests/test-mailbox.lisp
+++ b/contrib/sb-concurrency/tests/test-mailbox.lisp
@@ -40,7 +40,7 @@
 
 ;;; FIXME: Several tests disabled on Darwin due to hangs. Something not right
 ;;; with mailboxes -- or possibly semaphores -- there.
-#+(and sb-thread (not darwin))
+#+(and sb-thread (not (or darwin sunos)))
 (progn
 
 ;; Dummy struct for ATOMIC-INCF to work.
@@ -148,8 +148,8 @@
 (deftest mailbox.single-producer-single-consumer
     (test-mailbox-producers-consumers :n-senders 1
                                       :n-receivers 1
-                                      :n-messages 10000)
-  (:received . 10000)
+                                      :n-messages 1000)
+  (:received . 1000)
   (:garbage  . 0)
   (:errors   . 0)
   (:timeouts . 0))
@@ -157,17 +157,17 @@
 (deftest mailbox.single-producer-multiple-consumers
     (test-mailbox-producers-consumers :n-senders 1
                                       :n-receivers 100
-                                      :n-messages 10000)
-  (:received . 10000)
+                                      :n-messages 1000)
+  (:received . 1000)
   (:garbage  . 0)
   (:errors   . 0)
   (:timeouts . 0))
 
 (deftest mailbox.multiple-producers-single-consumer
-    (test-mailbox-producers-consumers :n-senders 100
+    (test-mailbox-producers-consumers :n-senders 10
                                       :n-receivers 1
                                       :n-messages 100)
-  (:received . 10000)
+  (:received . 1000)
   (:garbage  . 0)
   (:errors   . 0)
   (:timeouts . 0))
@@ -175,8 +175,8 @@
 (deftest mailbox.multiple-producers-multiple-consumers
     (test-mailbox-producers-consumers :n-senders 100
                                       :n-receivers 100
-                                      :n-messages 10000)
-  (:received . 1000000)
+                                      :n-messages 1000)
+  (:received . 100000)
   (:garbage  . 0)
   (:errors   . 0)
   (:timeouts . 0))
@@ -209,4 +209,4 @@
   (:garbage  . 0)
   (:timeouts . 0))
 
-) ; #+sb-thread (progn ...
\ No newline at end of file
+) ; #+sb-thread (progn ...