[Sbcl-commits] CVS: sbcl/contrib/sb-concurrency/tests test-mailbox.lisp, 1.3, 1.4

[Tobias R. <tri...@us...>]

Update of /cvsroot/sbcl/sbcl/contrib/sb-concurrency/tests
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv18635/contrib/sb-concurrency/tests

Modified Files:
	test-mailbox.lisp 
Log Message:
1.0.39.17: Reduce stress level of sb-concurrency tests.

Reduce the stress level of the MAILBOX tests by a factor of 10.

Reasons: 

  a) As contrib tests are run as part of a normal SBCL build, the
     mailbox tests are executed each time SBCL is built. And they
     really result in a few minutes of 100% cpu usage and high load
     averages because of many simultaneously running threads.

  b) On BSD platforms, the tests were reported several times in past
     to fail. From what I'm told (and if I remember correctly), the
     issue is, however, not necessarily concurrency bugs, but a
     coarser SLEEP granularity than on Linux platform.


Index: test-mailbox.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-concurrency/tests/test-mailbox.lisp,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- test-mailbox.lisp	7 Apr 2010 11:59:00 -0000	1.3
+++ test-mailbox.lisp	20 Jun 2010 07:48:25 -0000	1.4
@@ -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))