--- a/TestSuite.st	Thu Jan 18 09:43:59 2007 +0100
+++ b/TestSuite.st	Tue Jan 30 13:26:32 2007 +0100
@@ -133,6 +133,9 @@
 !
 
 run: aResult beforeEachDo:block1 afterEachDo:block2
+       |class|
+        class := Smalltalk classNamed:name.
+        class perform:#setUp ifNotUnderstood:nil.
         self tests do: 
                 [:each | 
                 self changed: each.
@@ -140,7 +143,8 @@
                 each run: aResult beforeEachDo:block1 afterEachDo:block2.
                 "/ each run: aResult.
                 block2 value:each value:aResult.
-                ]
+                ].
+        class perform:#tearDown ifNotUnderstood:nil
 !
 
 run: aResult beforeEachTestCaseDo:block1 afterEachTestCaseDo:block2
@@ -171,5 +175,5 @@
 !TestSuite class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.16 2006-09-12 09:40:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestSuite.st,v 1.17 2007-01-30 12:26:32 sr Exp $'
 ! !