--- a/TestResultReporter.st	Tue Nov 06 22:15:17 2012 +0100
+++ b/TestResultReporter.st	Tue Nov 06 23:01:34 2012 +0100
@@ -56,6 +56,23 @@
     Smalltalk loadPackage:'exept:regression'
 
                                                                                [exBegin]
+    |suite result testResult|
+
+    suite := TestSuite named:'SelfTest'.
+    #(
+        'FloatTest'
+        'IntegerTest'
+    ) do:[:className |
+        |fullName|
+
+        fullName := ('RegressionTests::',className).
+        suite addTest:(Smalltalk classNamed:fullName) suite.
+    ].
+    testResult := suite run.                                                                           
+    TestResultReporter report:testResult format:#xml_jUnit on:Transcript. 
+                                                                               [exEnd]
+
+                                                                               [exBegin]
     |testResult|
 
     testResult := RegressionTests::IntegerTest suite run.
@@ -843,11 +860,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.49 2012-11-06 21:14:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.50 2012-11-06 22:01:34 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.49 2012-11-06 21:14:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.50 2012-11-06 22:01:34 cg Exp $'
 !
 
 version_SVN