--- a/TestResultReporter.st	Sat Jul 30 17:13:38 2011 +0200
+++ b/TestResultReporter.st	Sat Jul 30 19:51:24 2011 +0200
@@ -397,7 +397,7 @@
     "
 
     | testClassName executionTime testName testDescription executionState 
-      successPassed successState compilerName  compilerVersion compilerConfiguration compilerVersionDate timeUnit timeMeasure timeIsRelevant sysInfo osType osVersion|
+      successPassed successState compilerName  compilerVersion compilerConfiguration compilerVersionDate timeUnit timeMeasure timeIsRelevant sysInfo osType osVersion cpuType|
 
     testClassName := self sunitNameOf: test class.
     testName := test selector.
@@ -418,24 +418,31 @@
     sysInfo := OperatingSystem getSystemInfo.
     osType := (sysInfo at:#osType ifAbsent:'?').
     osVersion := (sysInfo at:#release ifAbsent:'?').
+
+    cpuType := (sysInfo at:#cpuType ifAbsent:'?').
+    "/ cpuSpeed := (sysInfo at:#cpuSpeed ifAbsent:'?').
+
     stream
         nextPutLine:('<test name="%1" executed="yes">' bindWith: testName);
         nextPutLine:('  <description><!![CDATA[%1]]</description>' bindWith: testDescription);
         nextPutLine:'  <platform>';
         nextPutLine:'    <os>';
-        nextPutLine:('    <type><!![CDATA[%1]]></type>' bindWith:osType);
-        nextPutLine:('    <version><!![CDATA[%1]]></version>' bindWith:osVersion);
+        nextPutLine:('      <type><!![CDATA[%1]]></type>' bindWith:osType);
+        nextPutLine:('      <version><!![CDATA[%1]]></version>' bindWith:osVersion);
         nextPutLine:'    </os>';
-        nextPutLine:'    <processor>';
+        nextPutLine:('    <processor arch="%1">' bindWith:cpuType);
+        "/ nextPutLine:('      <frequency> unit="Mhz" cpufreq="%1" />' bindWith:cpuSpeed);
         nextPutLine:'    </processor>';
-        nextPutLine:('    <compiler name="%1" version="%2" versiondate="%3" configuration="%4">' 
+        nextPutLine:('    <compiler name="%1" version="%2" versiondate="%3" configuration="%4" />' 
                             bindWith:compilerName with:compilerVersion 
                             with:compilerVersionDate with:compilerConfiguration);
-        nextPutLine:'    <environment>';
+        "/ nextPutLine:'    <environment />';
         nextPutLine:'  </platform>';
         nextPutLine:'  <result>';
-        nextPutLine:('    <success passed="%1" state="%2">' bindWith:successPassed with:successState);
-        nextPutLine:('    <executiontime unit="" mesure="" measure="" isRelevant="">' bindWith:timeUnit with:timeMeasure with:timeIsRelevant);
+        nextPutLine:('    <success passed="%1" state="100" />' 
+                            bindWith:successPassed with:successState);
+        nextPutLine:('    <executiontime unit="" mesure="" measure="" isRelevant="" />' 
+                            bindWith:timeUnit with:timeMeasure with:timeIsRelevant);
         nextPutLine:'  </result>'.
 
 "/
@@ -467,11 +474,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.4 2011-07-30 15:13:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.5 2011-07-30 17:51:24 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.4 2011-07-30 15:13:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.5 2011-07-30 17:51:24 cg Exp $'
 !
 
 version_SVN