--- a/TestResultReporter.st	Wed Aug 10 00:09:25 2011 +0200
+++ b/TestResultReporter.st	Wed Aug 10 00:17:41 2011 +0200
@@ -1,10 +1,10 @@
 "{ Package: 'stx:goodies/sunit' }"
 
 Object subclass:#TestResultReporter
-        instanceVariableNames:'result stream'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'SUnit-Report'
+	instanceVariableNames:'result stream'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'SUnit-Report'
 !
 
 !TestResultReporter class methodsFor:'documentation'!
@@ -80,6 +80,13 @@
     testResult := RegressionTests::NumberTest suite run.
     TestResultReporter report:testResult format:#xml_jUnit on:Transcript.
                                                                                [exEnd]
+                                                                               [exBegin]
+    |suite testResult|
+
+    suite := RegressionTests::WritingToTranscriptOrStdoutTest suite.
+    testResult := suite run.
+    TestResultReporter report:testResult format:#xml_jUnit on:Transcript.
+                                                                               [exEnd]
 "
 !
 
@@ -735,11 +742,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.29 2011-08-07 11:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.30 2011-08-09 22:17:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.29 2011-08-07 11:12:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.30 2011-08-09 22:17:41 cg Exp $'
 !
 
 version_SVN