--- a/TestSuite.st	Sun Aug 21 18:05:25 2011 +0200
+++ b/TestSuite.st	Sun Aug 21 18:05:29 2011 +0200
@@ -138,7 +138,32 @@
     "Modified: / 31-07-2011 / 13:58:08 / cg"
 !
 
+run:result beforeEachDo: before afterEachDo: after debug:doDebug
+    ^ self
+        run:result 
+        beforeEachDo:before afterEachDo:after 
+        resetResources:true
+        debug:doDebug
+
+    "Modified: / 29-07-2011 / 12:09:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-07-2011 / 13:58:08 / cg"
+    "Created: / 21-08-2011 / 17:56:57 / cg"
+!
+
 run:result beforeEachDo:before afterEachDo:after resetResources:resetResources
+    ^ self
+        run:result  
+        beforeEachDo:before 
+        afterEachDo:after 
+        resetResources:resetResources 
+        debug:false
+
+    "Created: / 31-07-2011 / 13:57:25 / cg"
+    "Modified: / 03-08-2011 / 14:11:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 17:56:16 / cg"
+!
+
+run:result beforeEachDo:before afterEachDo:after resetResources:resetResources debug:doDebug
 
     result timestamp:(Timestamp now).
     result name:name.
@@ -148,7 +173,8 @@
             each run:result 
                 beforeEachDo: before 
                 afterEachDo: after 
-                resetResources: false "I'll reset it, see the ensure below"            
+                resetResources: false "I'll reset it, see the ensure below"
+                debug:doDebug
         ]
     ] sunitEnsure:[
         resetResources ifTrue:[
@@ -158,9 +184,8 @@
 
     ^result
 
-    "Modified: / 30-07-2011 / 12:40:12 / cg"
-    "Created: / 31-07-2011 / 13:57:25 / cg"
     "Modified: / 03-08-2011 / 14:11:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 21-08-2011 / 17:56:00 / cg"
 !
 
 run:aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
@@ -208,7 +233,7 @@
 !TestSuite class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.28 2011-08-09 15:08:35 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.29 2011-08-21 16:05:29 cg Exp $'
 !
 
 version_SVN