--- a/RegressionTests__Win32OperatingSystemTest.st Mon May 07 16:03:26 2012 +0200
+++ b/RegressionTests__Win32OperatingSystemTest.st Mon May 07 16:13:34 2012 +0200
@@ -3,10 +3,10 @@
"{ NameSpace: RegressionTests }"
TestCase subclass:#Win32OperatingSystemTest
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'tests-Regression'
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'tests-Regression'
!
@@ -20,6 +20,10 @@
testMutex
|handle alreadyExists lastErrorCode handleAndLastErrorCode|
+ OperatingSystem isMSWINDOWSlike ifFalse:[
+ ^ self.
+ ].
+
handleAndLastErrorCode := Win32OperatingSystem createMutexNamed: '8906f5e0-54ed-11dd-9da4-001558137da0'.
handle := handleAndLastErrorCode first.
handle isNil ifTrue:[^ self].