X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=contrib%2Fsb-concurrency%2Ftests%2Ftest-mailbox.lisp;h=618f018605f2426916fed8374e6ed9dee96ddd71;hb=5f891793819e3cd714c443c9a0a7223b4fb13dd0;hp=88d3975bc2faffffb0139e11085d6124bc09a8b5;hpb=de19b78acd2ecb0f6caedaaedee35031f0c61c1c;p=sbcl.git

diff --git a/contrib/sb-concurrency/tests/test-mailbox.lisp b/contrib/sb-concurrency/tests/test-mailbox.lisp
index 88d3975..618f018 100644
--- a/contrib/sb-concurrency/tests/test-mailbox.lisp
+++ b/contrib/sb-concurrency/tests/test-mailbox.lisp
@@ -166,7 +166,7 @@
                      `(:errors   . ,errors)
                      `(:timeouts . ,timeouts))))))))
 
-
+#-win32
 (deftest mailbox.single-producer-single-consumer
     (test-mailbox-producers-consumers :n-senders 1
                                       :n-receivers 1
@@ -176,6 +176,7 @@
   (:errors   . 0)
   (:timeouts . 0))
 
+#-win32
 (deftest mailbox.single-producer-multiple-consumers
     (test-mailbox-producers-consumers :n-senders 1
                                       :n-receivers 100
@@ -185,6 +186,7 @@
   (:errors   . 0)
   (:timeouts . 0))
 
+#-win32
 (deftest mailbox.multiple-producers-single-consumer
     (test-mailbox-producers-consumers :n-senders 10
                                       :n-receivers 1
@@ -194,11 +196,12 @@
   (:errors   . 0)
   (:timeouts . 0))
 
+#-win32
 (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))
@@ -206,8 +209,8 @@
 (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