--- a/TestResultReporter.st	Thu Nov 08 01:05:03 2012 +0100
+++ b/TestResultReporter.st	Wed Nov 21 14:55:41 2012 +0100
@@ -556,12 +556,14 @@
 
 reportXml_jUnitTest:testOutcome
     |testClassName testClass testClassSourceFile executionTime executionTimeString 
-     test testResult|
+     test testResult javaPackagePrefix|
 
     test := testOutcome testCase.
     testResult := testOutcome result.
 
     testClassName := self sunitNameOf: test class.
+    "/ prepend package, so it looks like a Java-class path
+    javaPackagePrefix := (test class package copyTransliterating:':/' to:'..'),'.'.
 
     (executionTime := testOutcome executionTime) isNil ifTrue:[
         executionTimeString := '0.0'.
@@ -571,7 +573,7 @@
 
     stream
         nextPutAll:'  <testcase'; 
-        nextPutAll:(' classname="%1"' bindWith:testClassName); 
+        nextPutAll:(' classname="%1"' bindWith:(javaPackagePrefix,testClassName)); 
         nextPutAll:(' name="%1"' bindWith:test selector);
         nextPutAll:(' status="%1"' bindWith:testResult);
         nextPutAll:(' time="%1"' bindWith:executionTimeString).
@@ -851,11 +853,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.52 2012-11-07 18:41:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.53 2012-11-21 13:55:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.52 2012-11-07 18:41:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.53 2012-11-21 13:55:41 cg Exp $'
 !
 
 version_SVN