--- a/TestSuite.st	Sun Jul 31 12:01:11 2011 +0200
+++ b/TestSuite.st	Sun Jul 31 13:58:29 2011 +0200
@@ -118,6 +118,16 @@
 !
 
 run:result beforeEachDo: before afterEachDo: after
+    ^ self
+        run:result 
+        beforeEachDo:before afterEachDo:after 
+        resetResources:true
+
+    "Modified: / 29-07-2011 / 12:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-07-2011 / 13:58:08 / cg"
+!
+
+run:result beforeEachDo:before afterEachDo:after resetResources:resetResources
 
     result timestamp:(Timestamp now).
     result name:name.
@@ -130,13 +140,16 @@
                 resetResources: false "I'll reset it, see the ensure below"            
         ]
     ] sunitEnsure:[
-        TestResource resetResources: self resources
+        resetResources ifTrue:[
+            TestResource resetResources: self resources
+        ]
     ].
 
     ^result
 
     "Modified: / 29-07-2011 / 12:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 30-07-2011 / 12:40:12 / cg"
+    "Created: / 31-07-2011 / 13:57:25 / cg"
 !
 
 run:aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
@@ -176,7 +189,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.23 2011-07-30 10:40:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.24 2011-07-31 11:58:29 cg Exp $'
 !
 
 version_SVN