# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1501065978 -7200
# Node ID e2428b24d753a0fb8062b4b995c0bb8524bc5a09
# Parent  e8513ab11939bb8c7762db247aa9ebad06d0243e
#DOCUMENTATION by cg
class: TestCase
comment/format in:
	#run
	#run:

class: TestCase class
changed: #run

diff -r e8513ab11939 -r e2428b24d753 TestCase.st
--- a/TestCase.st	Thu Jul 13 15:14:09 2017 +0200
+++ b/TestCase.st	Wed Jul 26 12:46:18 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -454,10 +456,13 @@
 !TestCase class methodsFor:'running'!
 
 run
-    self suite run
+    "run myself as a suite; return the result"
+
+    ^ self suite run
 
     "
      SOAP::XeXMLTests run
+     RegressionTests::OperatingSystemTest run
     "
 ! !
 
@@ -853,6 +858,7 @@
 !
 
 run
+    "run this suite; return the result"
 
     ^self run: TestResult defaultResultClass new
 
@@ -860,6 +866,7 @@
 !
 
 run: aResult
+    "run this suite; fill and return aResult"
 
     ^self run: aResult beforeEachDo: [:test :result|] afterEachDo: [:test :result|]