#REFACTORING by mawalch
authormawalch
Mon, 18 Sep 2017 11:57:18 +0200
changeset 1702 fa257457c18a
parent 1701 48849326905a
child 1703 1d4f44ef3cc9
#REFACTORING by mawalch class: RegressionTests::OS_OLE_Tests changed: #test01_loadTypeLib #test02_getTypeInfoCount #test03_coInitialize Use test case API for test skipping.
RegressionTests__OS_OLE_Tests.st
--- 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'!