RegressionTests__OS_OLE_Tests.st
changeset 1698 4dfaff79690e
parent 1447 2351db93aa5b
child 1702 fa257457c18a
--- a/RegressionTests__OS_OLE_Tests.st	Wed Sep 06 15:53:41 2017 +0200
+++ b/RegressionTests__OS_OLE_Tests.st	Wed Sep 13 10:40:23 2017 +0200
@@ -37,6 +37,11 @@
 
     |handle|
 
+    "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)
+    OperatingSystem isMSWINDOWSlike ifFalse:[
+        self skip.
+    ].
+
     handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
     self assert: ( handle notNil ).
     "/ handle release.
@@ -49,6 +54,8 @@
      self run:#test01_loadTypeLib
      self new test01_loadTypeLib
     "
+
+    "Modified: / 13-09-2017 / 10:37:48 / mawalch"
 !
 
 test02_getTypeInfoCount
@@ -59,6 +66,11 @@
 
     |handle numInfo|
 
+    "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)
+    OperatingSystem isMSWINDOWSlike ifFalse:[
+        self skip.
+    ].
+
     handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
     self assert: ( handle notNil ).
 
@@ -71,9 +83,17 @@
      self run:#test02_getTypeInfoCount
      self new test02_getTypeInfoCount
     "
+
+    "Modified: / 13-09-2017 / 10:38:18 / mawalch"
 !
 
 test03_coInitialize
+
+    "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)
+    OperatingSystem isMSWINDOWSlike ifFalse:[
+        self skip.
+    ].
+
     OleCom coInitialize.
     OleCom coUninitialize.
 
@@ -81,6 +101,8 @@
      self run:#test03_coInitialize
      self new test03_coInitialize
     "
+
+    "Modified: / 13-09-2017 / 10:38:29 / mawalch"
 ! !
 
 !OS_OLE_Tests class methodsFor:'documentation'!
@@ -88,3 +110,4 @@
 version
     ^ '$Header$'
 ! !
+