RegressionTests__Win32OperatingSystemTest.st
changeset 355 d86e28afd549
parent 354 310c6aca6525
child 675 f98a0bb2f639
--- 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!!'.