--- a/TestResource.st	Thu Aug 02 22:54:20 2012 +0200
+++ b/TestResource.st	Thu Aug 02 22:55:46 2012 +0200
@@ -59,12 +59,6 @@
 	^current
 !
 
-current: aTestResource
-
-	current := aTestResource
-
-!
-
 resources
 	^#()
 ! !
@@ -79,7 +73,7 @@
 !TestResource class methodsFor:'others'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.8 2011-07-05 16:24:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.9 2012-08-02 20:55:46 vrany Exp $'
 ! !
 
 !TestResource class methodsFor:'private'!
@@ -191,10 +185,6 @@
 
 initialize
 	"This method used to call setUp but now does nothing;  setUp is called by the framework at the appropriate point.  Subclasses may override to set the object to its default state."
-!
-
-uninitialize
-	self tearDown.
 ! !
 
 !TestResource methodsFor:'printing'!
@@ -238,7 +228,7 @@
 !TestResource class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.8 2011-07-05 16:24:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResource.st,v 1.9 2012-08-02 20:55:46 vrany Exp $'
 !
 
 version_SVN