--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__SemaphoreTest.st	Tue Oct 28 22:20:05 2003 +0100
@@ -0,0 +1,33 @@
+"{ Package: 'exept: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$'
+! !