--- a/TestSuite.st	Fri Dec 21 15:25:25 2001 +0100
+++ b/TestSuite.st	Fri Dec 21 15:25:38 2001 +0100
@@ -103,6 +103,17 @@
                 ]
 
     "Modified: / 21.6.2000 / 10:14:01 / Sames"
+!
+
+run: aResult beforeEachDo:block1 afterEachDo:block2
+        self tests do: 
+                [:each | 
+                self changed: each.
+                block1 value:each value:aResult.
+                each run: aResult beforeEachDo:block1 afterEachDo:block2.
+                "/ each run: aResult.
+                block2 value:each value:aResult.
+                ]
 ! !
 
 !TestSuite methodsFor:'Testing'!
@@ -116,5 +127,5 @@
 !TestSuite class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.9 2001-12-13 23:25:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.10 2001-12-21 14:25:38 cg Exp $'
 ! !