#QUALITY by mawalch
class: RegressionTests::OS_OLE_Tests
changed:
#test01_loadTypeLib
#test02_getTypeInfoCount
#test03_coInitialize
Skip tests on non-Windows systems
--- 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$'
! !
+