--- a/TestResult.st	Fri Mar 22 12:52:51 2019 +0100
+++ b/TestResult.st	Sat Mar 23 11:46:45 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -471,14 +473,14 @@
 
     [    
         aTestCase runCase.
-    ] sunitOn:self class skipped do: [:ex |
+    ] sunitOn:(self class skipped) do: [:ex |
         ex sunitAnnounce: aTestCase toResult: self.
         ex return.
-    ].    
-
+    ].
 
     "Modified: / 02-08-2011 / 18:10:09 / cg"
     "Created: / 03-08-2011 / 14:02:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-03-2019 / 10:33:08 / Claus Gittinger"
 !
 
 runCase:aTestCase 
@@ -501,7 +503,9 @@
             self rememberStartTime.
             self performCase:aTestCase.
             self rememberEndTime.
-            self addPass:aTestCase.
+            (outcome result == TestResult stateSkip) ifFalse:[
+                self addPass:aTestCase.
+            ].    
             outcome := nil.
         ] sunitOn:self exceptions do: [:ex |
             self rememberEndTime.
@@ -530,6 +534,7 @@
     "Created: / 21-08-2011 / 17:48:19 / cg"
     "Modified: / 04-06-2012 / 18:50:15 / cg"
     "Modified: / 14-01-2013 / 13:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-03-2019 / 10:35:41 / Claus Gittinger"
 ! !
 
 !TestResult methodsFor:'testing'!