--- a/TestSuite.st	Tue Jul 05 14:22:37 2011 +0200
+++ b/TestSuite.st	Tue Jul 05 17:45:47 2011 +0200
@@ -20,6 +20,12 @@
 		yourself
 ! !
 
+!TestSuite class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.20 2011-07-05 15:45:47 cg Exp $'
+! !
+
 !TestSuite methodsFor:'accessing'!
 
 addTest: aTest
@@ -188,6 +194,18 @@
 
     "Created: / 15-03-2010 / 20:36:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 19-03-2010 / 08:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+runBeforeEachDo:block1 afterEachDo: block2
+        | result |
+        result := TestResult new.
+        result name: name.
+        [self run: result beforeEachDo:block1 afterEachDo: block2]
+                sunitEnsure: [self resources reverseDo: [:each | each reset]].
+        ^result
+
+    "Modified: / 19-03-2010 / 08:02:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 05-07-2011 / 16:51:25 / cg"
 ! !
 
 !TestSuite methodsFor:'testing'!
@@ -210,7 +228,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.19 2011-06-29 19:15:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.20 2011-07-05 15:45:47 cg Exp $'
 !
 
 version_SVN