--- a/TestCase.st	Tue Aug 02 18:21:18 2011 +0200
+++ b/TestCase.st	Tue Aug 02 18:57:10 2011 +0200
@@ -285,6 +285,15 @@
 	^TestSuite
 ! !
 
+!TestCase class methodsFor:'converting'!
+
+asTestCase
+
+    ^self
+
+    "Created: / 02-08-2011 / 13:08:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !TestCase class methodsFor:'misc ui support'!
 
 iconInBrowserSymbol
@@ -825,11 +834,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.68 2011-08-02 15:50:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.69 2011-08-02 16:57:10 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.68 2011-08-02 15:50:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.69 2011-08-02 16:57:10 vrany Exp $'
 !
 
 version_SVN