--- a/TestResultReporter.st	Tue Oct 23 21:01:51 2012 +0200
+++ b/TestResultReporter.st	Tue Oct 23 21:01:54 2012 +0200
@@ -53,6 +53,8 @@
 
 examples
 "
+    Smalltalk loadPackage:'exept:regression'
+
                                                                                [exBegin]
     |testResult|
 
@@ -106,6 +108,20 @@
     testResult := RegressionTests::NumberTest suite run.
     TestResultReporter report:testResult format:#tap on:Transcript.
                                                                                [exEnd]
+
+  test an error:
+                                                                               [exBegin]
+    |testResult|
+
+    (RegressionTests::AssociationTests includesSelector:#'test_xx_willFail') ifFalse:[
+        Class withoutUpdatingChangesDo:[
+            RegressionTests::AssociationTests compile:'test_xx_willFail self assert:5 > 7.'.
+            RegressionTests::AssociationTests compile:'test_xx_willErr self error:''err by purpose''.'
+        ].
+    ].
+    testResult := RegressionTests::AssociationTests suite run.
+    TestResultReporter report:testResult format:#xml_jUnit on:Transcript.
+                                                                               [exEnd]
 "
 !
 
@@ -152,7 +168,7 @@
        <error message='humidity level too high' type='java.lang.RuntimeException'>java.lang.RuntimeException: humidity level too high
           at net.cars.engine.Bougie.spark(Unknown Source)
           at net.cars.engine.BougieTest.sparkHumid(BougieTest.java:36)
-  </error>
+       </error>
      </testcase>
      <system-out><!![CDATA[]]></system-out>
      <system-err><!![CDATA[]]></system-err>
@@ -766,11 +782,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.33 2011-08-21 15:35:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.34 2012-10-23 19:01:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.33 2011-08-21 15:35:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.34 2012-10-23 19:01:54 cg Exp $'
 !
 
 version_SVN