# HG changeset patch # User Claus Gittinger # Date 1228218594 -3600 # Node ID d86e28afd549b34cf75ee1a8d7a1eaa274edf127 # Parent 310c6aca6525eb3c04eaf9d43ec28fffd895a68b changed #testMutex diff -r 310c6aca6525 -r d86e28afd549 RegressionTests__Win32OperatingSystemTest.st --- a/RegressionTests__Win32OperatingSystemTest.st Tue Dec 02 12:47:39 2008 +0100 +++ b/RegressionTests__Win32OperatingSystemTest.st Tue Dec 02 12:49:54 2008 +0100 @@ -3,10 +3,10 @@ "{ NameSpace: RegressionTests }" TestCase subclass:#Win32OperatingSystemTest - instanceVariableNames:'' - classVariableNames:'' - poolDictionaries:'' - category:'tests-Regression' + instanceVariableNames:'' + classVariableNames:'' + poolDictionaries:'' + category:'tests-Regression' ! @@ -27,12 +27,12 @@ self assert: lastErrorCode == 0. alreadyExists := (lastErrorCode == 5 "ERROR_ACCESS_DENIED" or:[ lastErrorCode == 183 "ERROR_ALREADY_EXISTS"]). alreadyExists ifTrue:[ - Transcript showCR: 'Mutex already exists!!'. - ^ self. + Transcript showCR: 'Mutex already exists!!'. + ^ self. ]. Transcript showCR: 'Mutex created!!'. Win32OperatingSystem waitForSingleObject: handle. - self halt. + Delay waitForSeconds:0.5. "/ self halt. Win32OperatingSystem releaseMutex: handle. Win32OperatingSystem primCloseHandle: handle. Transcript showCR: 'Mutex closed!!'.