better stable tests

Author: dionisiydk

ReadWriteLock-Tests.package/LocksTestCase.class/instance/waitForkedProcesses.st

@@ -1,6 +1,5 @@
 helpers
 waitForkedProcesses
 
-	[CurrentExecutionEnvironment value forkedProcesses 
-		allSatisfy: [ :each | each isTerminated ]] whileFalse: [ 
-			Processor yield ]
+	[forkedProcesses allSatisfy: [ :each | each isTerminated ]] 
+		whileFalse: [ Processor yield ]

ReadWriteLock-Tests.package/PrimitiveLockTest.class/instance/testAcquireLockWhenItsAlreadyBusy.st

@@ -1,11 +1,15 @@
 tests
 testAcquireLockWhenItsAlreadyBusy
 
-	| lastLockAcquired |
+	| lastLockAcquired syncSemaphore lockSemaphore |
 	lastLockAcquired := false.
-	self fork: [ lock acquire. 10 seconds wait. ].
+	syncSemaphore := Semaphore new.
+	lockSemaphore := Semaphore new.
+	self fork: [ lock acquire. syncSemaphore signal. lockSemaphore wait. ].
+	syncSemaphore wait.
 	self fork: [ lock acquire. lastLockAcquired := true ].
-	10 milliSeconds wait.
+	self passForkedProcesses.
+	lockSemaphore signal.
 
 	self deny: lastLockAcquired
 

ReadWriteLock-Tests.package/PrimitiveLockTest.class/instance/testReleasingLock.st

@@ -1,11 +1,15 @@
 tests
 testReleasingLock
 
-	| lastExecuted |
+	| lastExecuted syncSemaphore lockSemaphore |
 	lastExecuted := false.
-	self fork: [ lock acquire. 10 seconds wait].
+	syncSemaphore := Semaphore new.
+	lockSemaphore := Semaphore new.
+
+	self fork: [ lock acquire. syncSemaphore signal. lockSemaphore wait].
 	self fork: [ lock acquire. lastExecuted := true].
-	10 milliSeconds wait.
+	syncSemaphore wait.
+	self passForkedProcesses.
 	lock release.	
 	self waitLastProcessFinished.
 	self assert: lastExecuted