--- a/TestResultReporter.st	Fri Aug 19 00:30:06 2011 +0200
+++ b/TestResultReporter.st	Fri Aug 19 12:04:40 2011 +0200
@@ -98,6 +98,12 @@
     |testResult|
 
     testResult := RegressionTests::NumberTest suite run.
+    TestResultReporter report:testResult format:#xml_perfPublisher on:Transcript.
+                                                                               [exEnd]
+                                                                               [exBegin]
+    |testResult|
+
+    testResult := RegressionTests::NumberTest suite run.
     TestResultReporter report:testResult format:#tap on:Transcript.
                                                                                [exEnd]
 "
@@ -590,12 +596,12 @@
     testName := test selector.
 
     "most tests do not know, and return nil here!!"
-    executionTime := test executionTime ? 0.    "/ millis
+    executionTime := testOutcome executionTime ? 0.    "/ millis
     testDescription := '%1-%2' bindWith:testClassName with:testName.
 
     successPassed := (testResult == #success) ifTrue:['yes'] ifFalse:['no'].
     testResult ~~ #success ifTrue:[
-        exceptionInfo := test exceptionInfoString.
+        exceptionInfo := testOutcome exceptionDetail.
     ].
 
     successState := 'foo'.
@@ -761,11 +767,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.31 2011-08-18 22:29:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.32 2011-08-19 10:04:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.31 2011-08-18 22:29:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.32 2011-08-19 10:04:40 cg Exp $'
 !
 
 version_SVN