[gentoo-commits] gentoo-x86 commit in dev-lisp/sbcl/files: concurrency-test-1.2.6.patch

[gentoo-commits] gentoo-x86 commit in dev-lisp/sbcl/files: concurrency-test-1.2.6.patch

[Andrey Grozin (grozin)]

grozin      14/12/22 10:43:49

  Added:                concurrency-test-1.2.6.patch
  Log:
  Adding a missing patch (#533158)
  
  (Portage version: 2.2.15/cvs/Linux i686, signed Manifest commit with key 0x3AFFCE974D34BD8C!)

Revision  Changes    Path
1.1                  dev-lisp/sbcl/files/concurrency-test-1.2.6.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lisp/sbcl/files/concurrency-test-1.2.6.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-lisp/sbcl/files/concurrency-test-1.2.6.patch?rev=1.1&content-type=text/plain

Index: concurrency-test-1.2.6.patch
===================================================================
diff -Nuar a/contrib/sb-concurrency/tests/test-frlock.lisp b/contrib/sb-concurrency/tests/test-frlock.lisp
--- a/contrib/sb-concurrency/tests/test-frlock.lisp	2014-11-29 19:56:58.000000000 +0100
+++ b/contrib/sb-concurrency/tests/test-frlock.lisp	2014-12-16 23:52:18.569947139 +0100
@@ -22,9 +22,9 @@
   #+openbsd 0.01
   #-openbsd 0.0001)
 
-(defun test-frlocks (&key (reader-count 100) (read-count 1000000)
+(defun test-frlocks (&key (reader-count 50) (read-count 500000)
                           (outer-read-pause 0) (inner-read-pause 0)
-                          (writer-count 10) (write-count (/ 1 *minimum-sleep*))
+                          (writer-count 10) (write-count 5000)
                           (outer-write-pause *minimum-sleep*) (inner-write-pause 0))
     (let ((rw (make-frlock))
           (a 0)
@@ -87,7 +87,7 @@
 #+sb-thread
 (deftest* (frlock.1 :fails-on :win32)
     (handler-case
-        (sb-ext:with-timeout 60 (test-frlocks))
+        (sb-ext:with-timeout 240 (test-frlocks))
       (sb-ext:timeout (c)
         (error "~A" c)))
   nil