"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
nil subclass:#ManyProcessesTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-Processes'
!
!ManyProcessesTest class methodsFor:'others'!
version_CVS
^ '$Header$'
! !
!ManyProcessesTest methodsFor:'test'!
start:count
"
ManyProcessesTest new test400
"
|waitSema|
waitSema := Semaphore new.
waitSema setCount:(1 - count).
count timesRepeat:[
[ [Delay waitForSeconds:0.4.] ensure:[waitSema signal].
] forkAt:(Processor userBackgroundPriority)
].
waitSema wait.
!
test400
"
self new test400
"
|waitSema repeat|
repeat := 4.
'Makefile' asFilename readStream close.
waitSema := Semaphore new.
waitSema setCount:(1 - repeat).
repeat timesRepeat:[
[ [self start:100] ensure:[waitSema signal]
] forkAt:8.
].
waitSema wait.
Transcript showCR:'done'.
! !
!ManyProcessesTest class methodsFor:'documentation'!
version
^ '$Header$'
! !