--- a/TestSuite.st	Mon Sep 21 10:03:19 2009 +0200
+++ b/TestSuite.st	Mon Sep 21 10:10:10 2009 +0200
@@ -133,17 +133,23 @@
 !
 
 run: aResult beforeEachDo:block1 afterEachDo:block2
+
        |class|
+
         class := Smalltalk classNamed:name.
         class perform:#setUp ifNotUnderstood:nil.
-        self tests do: 
-                [:each | 
-                self changed: each.
-                block1 value:each value:aResult.
-                each run: aResult beforeEachDo:block1 afterEachDo:block2.
-                "/ each run: aResult.
-                block2 value:each value:aResult.
-                ].
+
+        [
+            self tests do: 
+                    [:each | 
+                    self changed: each.
+                    block1 value:each value:aResult.
+                    each run: aResult beforeEachDo:block1 afterEachDo:block2.
+                    "/ each run: aResult.
+                    block2 value:each value:aResult.
+                    ].
+        ] ensure: [self resources do:[:e|e reset]].
+
         class perform:#tearDown ifNotUnderstood:nil
 !
 
@@ -175,5 +181,5 @@
 !TestSuite class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.17 2007-01-30 12:26:32 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.18 2009-09-21 08:10:10 fm Exp $'
 ! !