# HG changeset patch
# User mawalch
# Date 1505728638 -7200
# Node ID fa257457c18a22e36504d7b04ebc846b63121e1f
# Parent  48849326905a8ea1970e5f0ff64f25fadc1fb785
#REFACTORING by mawalch
class: RegressionTests::OS_OLE_Tests
changed:
        #test01_loadTypeLib
        #test02_getTypeInfoCount
        #test03_coInitialize

Use test case API for test skipping.

diff -r 48849326905a -r fa257457c18a 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'!