Permalink
Browse files

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.
  • Loading branch information...
1 parent 2b67d29 commit 8afcf4f95efb986b5eabd5f19731de4e2ee192e2 @lichtblau lichtblau committed Sep 18, 2012
Showing with 4 additions and 3 deletions.
  1. +4 −3 tests/threads.pure.lisp
View
@@ -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

0 comments on commit 8afcf4f

Please sign in to comment.