--- a/TestCase.st	Sun Aug 21 17:49:00 2011 +0200
+++ b/TestCase.st	Sun Aug 21 18:05:17 2011 +0200
@@ -693,6 +693,18 @@
 !
 
 run: result beforeEachDo: before afterEachDo: after resetResources: reset
+    ^ self
+        run: result 
+        beforeEachDo: before 
+        afterEachDo: after 
+        resetResources: reset
+        debug: false
+
+    "Created: / 29-07-2011 / 12:04:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 21-08-2011 / 17:45:17 / cg"
+!
+
+run: result beforeEachDo: before afterEachDo: after resetResources: reset debug:doDebug
 
     "Workhorse for running a testcase. If reset is true, then
      the resources are reset, otherwise not"
@@ -713,12 +725,12 @@
     "2. Run the testcase"
     reset ifTrue:[
         [
-            result runCase: self
+            result runCase: self debugged:doDebug
         ] sunitEnsure: [
             TestResource resetResources: self resources
         ].
     ] ifFalse:[
-        result runCase: self
+        result runCase: self debugged:doDebug
     ].
 
     "3. Execute after block"
@@ -736,7 +748,7 @@
     ^result
 
     "Created: / 29-07-2011 / 12:04:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-08-2011 / 10:22:09 / cg"
+    "Created: / 21-08-2011 / 17:44:56 / cg"
 !
 
 run: aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
@@ -786,11 +798,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.81 2011-08-21 13:06:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.82 2011-08-21 16:05:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.81 2011-08-21 13:06:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.82 2011-08-21 16:05:17 cg Exp $'
 !
 
 version_SVN