From 8afcf4f95efb986b5eabd5f19731de4e2ee192e2 Mon Sep 17 00:00:00 2001 From: David Lichteblau Date: Tue, 18 Sep 2012 17:11:14 +0200 Subject: [PATCH] Reduce the numbers of threads in test ATOMIC-UPDATE on 32bit platforms This test creates 1000 threads in a row -- too many for some 32bit platforms due to lack of memory or fragmentation. --- tests/threads.pure.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp index 03da75b..2db34c2 100644 --- a/tests/threads.pure.lisp +++ b/tests/threads.pure.lisp @@ -22,15 +22,16 @@ (with-test (:name atomic-update :skipped-on '(not :sb-thread)) - (let ((x (cons :count 0))) + (let ((x (cons :count 0)) + (nthreads (ecase sb-vm:n-word-bits (32 100) (64 1000)))) (mapc #'sb-thread:join-thread (loop repeat 1000 collect (sb-thread:make-thread (lambda () - (loop repeat 1000 + (loop repeat nthreads do (atomic-update (cdr x) #'1+) (sleep 0.00001)))))) - (assert (equal x '(:count . 1000000))))) + (assert (equal x `(:count ,@(* 1000 nthreads)))))) (with-test (:name mutex-owner) ;; Make sure basics are sane on unithreaded ports as well -- 1.7.10.4