--- a/TestResultReporter.st	Wed Oct 24 20:22:40 2012 +0200
+++ b/TestResultReporter.st	Wed Oct 24 23:55:45 2012 +0200
@@ -514,7 +514,7 @@
 !
 
 reportXml_jUnitTest:testOutcome
-    | testClassName executionTime executionTimeString test testResult|
+    |testClassName testClass testClassSourceFile executionTime executionTimeString test testResult|
 
     test := testOutcome testCase.
     testResult := testOutcome result.
@@ -539,7 +539,19 @@
     ] ifFalse:[
         stream nextPutAll:'>'; cr.
         self reportXml_jUnitResultAndTraceback:testOutcome state:testResult.
-        stream nextPutAll:'  </testcase>'; cr.
+
+        testClass := Smalltalk classNamed:testClassName.
+        testClass notNil ifTrue:[
+            testClassSourceFile := testClass classFilename.
+        ].
+        testClassSourceFile notNil ifTrue:[
+            stream
+                nextPutAll:'    <system-out>'; cr;
+                nextPutAll:('[[ATTACHMENT|%1]]' bindWith:testClassSourceFile pathName); cr;
+                nextPutAll:'    </system-out>'; cr.
+        ].
+        stream
+            nextPutAll:'  </testcase>'; cr.
     ].
 
     "Created: / 18-08-2011 / 20:30:50 / cg"
@@ -783,11 +795,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.36 2012-10-24 16:15:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.37 2012-10-24 21:55:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.36 2012-10-24 16:15:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.37 2012-10-24 21:55:45 cg Exp $'
 !
 
 version_SVN