#REFACTORING by mawalch
class: RegressionTests::OS_OLE_Tests
changed:
#test01_loadTypeLib
#test02_getTypeInfoCount
#test03_coInitialize
Use test case API for test skipping.
--- a/RegressionTests__OS_OLE_Tests.st Mon Sep 18 11:50:50 2017 +0200
+++ b/RegressionTests__OS_OLE_Tests.st Mon Sep 18 11:57:18 2017 +0200
@@ -37,10 +37,9 @@
|handle|
- "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)
- OperatingSystem isMSWINDOWSlike ifFalse:[
- self skip.
- ].
+ self
+ skipIf:OperatingSystem isMSWINDOWSlike not
+ description:'Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)'.
handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
self assert: ( handle notNil ).
@@ -55,7 +54,7 @@
self new test01_loadTypeLib
"
- "Modified: / 13-09-2017 / 10:37:48 / mawalch"
+ "Modified: / 18-09-2017 / 11:54:24 / mawalch"
!
test02_getTypeInfoCount
@@ -66,10 +65,9 @@
|handle numInfo|
- "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)
- OperatingSystem isMSWINDOWSlike ifFalse:[
- self skip.
- ].
+ self
+ skipIf:OperatingSystem isMSWINDOWSlike not
+ description:'Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)'.
handle := OleCom::ITypeLib loadTypeLib:'C:\WINDOWS\system32\stdole32.tlb'.
self assert: ( handle notNil ).
@@ -84,15 +82,14 @@
self new test02_getTypeInfoCount
"
- "Modified: / 13-09-2017 / 10:38:18 / mawalch"
+ "Modified: / 18-09-2017 / 11:54:18 / mawalch"
!
test03_coInitialize
- "/ Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)
- OperatingSystem isMSWINDOWSlike ifFalse:[
- self skip.
- ].
+ self
+ skipIf:OperatingSystem isMSWINDOWSlike not
+ description:'Only implemented on Windows (adjust if this is ever ported to macOS, OS/2, ...)'.
OleCom coInitialize.
OleCom coUninitialize.
@@ -102,7 +99,7 @@
self new test03_coInitialize
"
- "Modified: / 13-09-2017 / 10:38:29 / mawalch"
+ "Modified: / 18-09-2017 / 11:54:09 / mawalch"
! !
!OS_OLE_Tests class methodsFor:'documentation'!