--- a/TestCase.st	Fri Dec 21 15:25:38 2001 +0100
+++ b/TestCase.st	Fri Dec 21 16:46:31 2001 +0100
@@ -286,6 +286,12 @@
         block2 value:self value:aResult.
 !
 
+run: aResult beforeEachDo:block1 afterEachDo:block2
+        block1 value:self value:aResult.
+        aResult runCase: self.
+        block2 value:self value:aResult.
+!
+
 runCase
         self setUp.
         [self performTest "self perform: testSelector asSymbol"] ensure: [self tearDown]
@@ -317,6 +323,6 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.17 2001-12-13 22:11:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.18 2001-12-21 15:46:31 cg Exp $'
 ! !
 TestCase initialize!