#FEATURE by Stefan Reise
class: RegressionTests::WebSocketTest
removed:
#byteArray500
#data500
#testCommunication100WithMasking
#testCommunication100WithoutMasking
#testCommunication500
#testCommunicationByteArray500
#testMask500
#testMask500Speed
category of:
#testCommunication100Speed
#testMask100Speed
#testParallelSocketWrite
class: WebSocketTest
changed:
#testCommunicationFilename
#testParallelSocketWrite
"{ Package: 'stx:goodies/regression' }"
"{ NameSpace: RegressionTests }"
TestCase subclass:#SemaphoreTest
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'tests-Regression-Processes'
!
!SemaphoreTest methodsFor:'tests'!
testSpeed01
|s t|
s := Semaphore forMutualExclusion.
t := Time millisecondsToRun:[
1000000 timesRepeat:[ s critical:[1+1] ]
].
Transcript showCR:t
"
self run:#testSpeed01
"
! !
!SemaphoreTest class methodsFor:'documentation'!
version
^ '$Header$'
! !