use TestResultForSTX in SUnit runner
authorClaus Gittinger <cg@exept.de>
Tue, 23 Oct 2012 21:01:44 +0200
changeset 11924 a53da0dec127
parent 11923 69b30ba3d663
child 11925 7e2860fce495
use TestResultForSTX in SUnit runner
Tools__TestRunner2.st
--- a/Tools__TestRunner2.st	Tue Oct 23 21:01:25 2012 +0200
+++ b/Tools__TestRunner2.st	Tue Oct 23 21:01:44 2012 +0200
@@ -1377,7 +1377,7 @@
     | testResult testCases |
 
     self withWaitCursorDo:[
-        testResult := TestResult new.
+        testResult := TestResult defaultResultClass new.
         testCases := Set new.
         aTestSuite
             run: testResult
@@ -1815,7 +1815,7 @@
 !TestRunner2::ClassList class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.30 2012-08-09 09:00:09 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.31 2012-10-23 19:01:44 cg Exp $'
 ! !
 
 !TestRunner2::ClassList methodsFor:'private'!
@@ -2312,11 +2312,11 @@
 !TestRunner2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.30 2012-08-09 09:00:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.31 2012-10-23 19:01:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.30 2012-08-09 09:00:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.31 2012-10-23 19:01:44 cg Exp $'
 !
 
 version_SVN