--- 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