--- a/TestResultReporter.st	Mon Aug 01 16:52:25 2011 +0200
+++ b/TestResultReporter.st	Mon Aug 01 16:54:43 2011 +0200
@@ -456,7 +456,7 @@
     testName := test selector.
 
     "most tests do not know, and return nil here!!"
-    executionTime := test executionTime ? 0 seconds.    "/ an instance of TimeDuration
+    executionTime := test executionTime ? 0.    "/ millis
     testDescription := '%1-%2' bindWith:testClassName with:testName.
 
     successPassed := (testResult == #success) ifTrue:['yes'] ifFalse:['no'].
@@ -476,7 +476,7 @@
     "/ cpuSpeed := (sysInfo at:#cpuSpeed ifAbsent:'?').
 
     timeUnit := 'ms'.
-    timeMeasure := executionTime getMilliseconds.
+    timeMeasure := executionTime.
 
     stream
         nextPutLine:('<test name="%1" executed="yes">' bindWith: testName);
@@ -497,6 +497,10 @@
         nextPutLine:'  <result>';
         nextPutLine:('    <success passed="%1" state="100" />' 
                             bindWith:successPassed with:successState);
+        "/ cg: in the perfPublisher documentation, I found "mesure".
+        "/ I am not sure, if that was a typo, or is actually what is expected...
+        "/ to be on the save side, I generate both a mesure and a measure attribute,
+        "/ so it will work, even if they ever fix perfPublisher's xml parser.
         nextPutLine:('    <executiontime unit="%1" mesure="%2" measure="%2" isRelevant="yes" />' 
                             bindWith:timeUnit with:timeMeasure);
         nextPutLine:'  </result>'.
@@ -530,11 +534,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.12 2011-08-01 14:43:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.13 2011-08-01 14:54:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.12 2011-08-01 14:43:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.13 2011-08-01 14:54:43 cg Exp $'
 !
 
 version_SVN