author | Patrik Svestka <patrik.svestka@gmail.com> |
Fri, 19 Feb 2021 13:58:24 +0100 | |
branch | jv |
changeset 2603 | 6ac9ae0a4987 |
parent 1567 | e17701a073f9 |
permissions | -rwxr-xr-x |
"{ Package: 'stx:goodies/regression' }" "{ NameSpace: RegressionTests }" TestCase subclass:#SemaphoreTest instanceVariableNames:'' classVariableNames:'' poolDictionaries:'' category:'tests-Regression' ! !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$' ! !