author | Claus Gittinger <cg@exept.de> |
Tue, 09 Jul 2019 18:53:03 +0200 | |
changeset 2327 | bf482d49aeaf |
parent 2051 | 62ebd7e42570 |
permissions | -rw-r--r-- |
"{ 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$' ! !