"{ Package: 'stx:goodies/sunit' }"
!

!Behavior methodsFor:'Camp Smalltalk'!

sunitAllSelectors
	^self allSelectors asSortedCollection asOrderedCollection
! !

!Behavior methodsFor:'Camp Smalltalk'!

sunitSelectors
	^self selectors asSortedCollection asOrderedCollection

    "Created: / 20.6.2000 / 11:54:54 / Sames"
! !

!Exception methodsFor:'Camp Smalltalk'!

sunitExitWith:aValue
	^ self return:aValue

    "Created: / 20.6.2000 / 18:22:33 / Sames"
! !

!Symbol methodsFor:'Camp Smalltalk'!

sunitAsClass
	^SUnitNameResolver classNamed: self

    "Created: / 20.6.2000 / 18:22:33 / Sames"
! !