#QUALITY by cg
class: RegressionTests::QDoubleTests
changed:
#test99_misc
#test_01_instance_creation
#test_02_addition
#test_03_subtract
#test_04_relops
#test_05_multiply
#test_06_exp
#test_06b_log10
#test_07_reading
#test_08_conversion
"{ 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$'
! !