--- a/extensions.st	Wed Jun 29 20:38:32 2011 +0200
+++ b/extensions.st	Wed Jun 29 21:15:49 2011 +0200
@@ -1,21 +1,122 @@
-"{ Package: 'stx:goodies/sunit' }"!
+"{ Package: 'stx:goodies/sunit' }"
 
-!Behavior methodsFor:'Camp Smalltalk'!
+!
+
+!Behavior methodsFor:'deprecated'!
 
 sunitAllSelectors
-	^self allSelectors asSortedCollection asOrderedCollection
+
+    <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
-	^self selectors asSortedCollection asOrderedCollection
+
+    ^self selectors
+
+    "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'!
 
-    "Created: / 20.6.2000 / 11:54:54 / Sames"
+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
+! !
+!Object methodsFor:'Camp Smalltalk'!
+
+sunitAddDependent: anObject
+	
+	self addDependent: anObject
+! !
+!Object methodsFor:'Camp Smalltalk'!
+
+sunitChanged: aspect
+	
+	self changed: aspect
+! !
+!Object methodsFor:'Camp Smalltalk'!
 
-!stx_goodies_sunit class methodsFor:'documentation'!
+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
 
-extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/extensions.st,v 1.8 2011-06-28 12:39:06 cg Exp $'
-! !
\ No newline at end of file
+        <resource: #obsolete>
+        
+        | stream answer index |
+        answer := OrderedCollection new.
+        stream := ReadStream on: self.
+        [stream atEnd]
+                whileFalse:
+                        [[stream atEnd ifTrue: [^answer asArray].
+                        stream peek > Character space] whileFalse: [stream next].
+                        index := stream position + 1.
+                        [stream atEnd or: [stream peek <= Character space]] whileFalse: [stream next].
+                        answer
+                                add:
+                                        (self
+                                                copyFrom: index
+                                                to: stream position)].
+        ^answer asArray
+
+    "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
+
+    <resource: #skipInDebuggersWalkBack>
+
+    ^self raiseSignal: aString
+
+    "Modified: / 05-12-2009 / 18:29:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !