--- 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!!'.