--- a/extensions.st	Tue Jul 05 14:04:00 2011 +0200
+++ b/extensions.st	Tue Jul 05 14:05:06 2011 +0200
@@ -1,17 +1,5 @@
-"{ Package: 'stx:goodies/sunit' }"
-
-!
-
-!Behavior methodsFor:'deprecated'!
+"{ Package: 'stx:goodies/sunit' }"!
 
-sunitAllSelectors
-
-    <resource: #obsolete>
-    self obsoleteMethodWarning: 'Use #testSelectors instead'.
-    ^self allSelectors
-
-    "Modified: / 11-09-2010 / 15:07:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
 !Behavior methodsFor:'Camp Smalltalk'!
 
 sunitSelectors
@@ -20,66 +8,81 @@
 
     "Modified: / 11-09-2010 / 15:07:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+
 !Block methodsFor:'Camp Smalltalk'!
 
 sunitEnsure: aBlock
 	
 	^self ensure: aBlock
 ! !
+
 !Block methodsFor:'Camp Smalltalk'!
 
 sunitOn: aSignal do: anExceptionBlock
 	
 	^self on: aSignal do: anExceptionBlock
 ! !
-!Class methodsFor:'Camp Smalltalk'!
 
-sunitName
-	
-	^self name
-! !
 !Exception methodsFor:'Camp Smalltalk'!
 
 sunitAnnounce: aTestCase toResult: aTestResult
 	aTestResult addError: aTestCase.
 	self sunitExitWith: false.
 ! !
+
 !Exception methodsFor:'Camp Smalltalk'!
 
 sunitExitWith: aValue
 	
 	^self return: aValue
 ! !
+
+!GenericException class methodsFor:'Camp Smalltalk'!
+
+sunitSignalWith: aString
+
+    <resource: #skipInDebuggersWalkBack>
+
+    ^self raiseSignal: aString
+
+    "Modified: / 05-12-2009 / 18:29:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Object methodsFor:'Camp Smalltalk'!
 
 sunitAddDependent: anObject
 	
 	self addDependent: anObject
 ! !
+
 !Object methodsFor:'Camp Smalltalk'!
 
 sunitChanged: aspect
 	
 	self changed: aspect
 ! !
+
 !Object methodsFor:'Camp Smalltalk'!
 
 sunitRemoveDependent: anObject
 	
 	self removeDependent: anObject
 ! !
+
 !String methodsFor:'Camp Smalltalk'!
 
 sunitAsSymbol
 	
 	^self asSymbol
 ! !
+
 !String methodsFor:'Camp Smalltalk'!
 
 sunitMatch: aString
 	
 	^self match: aString
 ! !
+
 !String methodsFor:'deprecated'!
 
 sunitSubStrings
@@ -104,19 +107,16 @@
 
     "Modified: / 11-09-2010 / 15:14:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
+
 !Symbol methodsFor:'Camp Smalltalk'!
 
 sunitAsClass
 	
 	^SUnitNameResolver classNamed: self
 ! !
-!GenericException class methodsFor:'Camp Smalltalk'!
 
-sunitSignalWith: aString
+!stx_goodies_sunit class methodsFor:'documentation'!
 
-    <resource: #skipInDebuggersWalkBack>
-
-    ^self raiseSignal: aString
-
-    "Modified: / 05-12-2009 / 18:29:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
+extensionsVersion_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/extensions.st,v 1.10 2011-07-05 12:05:06 stefan Exp $'
+! !
\ No newline at end of file