--- a/TestResource.st	Thu May 16 14:28:04 2002 +0200
+++ b/TestResource.st	Wed Jun 19 14:21:01 2002 +0200
@@ -33,9 +33,11 @@
 !
 
 reset
-	current notNil ifTrue: 
-		[current tearDown.
-		current := nil]
+        current notNil ifTrue: 
+                [current tearDown.
+                current := nil]
+
+        "self withAllSubclassesDo:[:each| each reset]"
 ! !
 
 !TestResource class methodsFor:'testing'!
@@ -77,6 +79,7 @@
 !TestResource methodsFor:'init / release'!
 
 initialize
+    self setUp
 ! !
 
 !TestResource methodsFor:'printing'!
@@ -112,5 +115,5 @@
 !TestResource class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.2 2002-02-26 10:30:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.3 2002-06-19 12:21:01 cg Exp $'
 ! !