31
|
1 |
"{ Package: 'stx:goodies/sunit' }"
|
|
2 |
!
|
0
|
3 |
|
|
4 |
!Behavior methodsFor:'Camp Smalltalk'!
|
|
5 |
|
|
6 |
sunitSelectors
|
|
7 |
^self selectors asSortedCollection asOrderedCollection
|
|
8 |
|
|
9 |
"Created: / 20.6.2000 / 11:54:54 / Sames"
|
|
10 |
! !
|
|
11 |
|
31
|
12 |
!GenericException class methodsFor:'Camp Smalltalk'!
|
0
|
13 |
|
31
|
14 |
sunitSignalWith: aString
|
|
15 |
^self raiseErrorString: aString
|
0
|
16 |
|
31
|
17 |
"Created: / 20.6.2000 / 12:40:52 / Sames"
|
0
|
18 |
! !
|
|
19 |
|
|
20 |
!Symbol methodsFor:'Camp Smalltalk'!
|
|
21 |
|
|
22 |
sunitAsClass
|
|
23 |
^SUnitNameResolver classNamed: self
|
|
24 |
|
|
25 |
"Created: / 20.6.2000 / 18:22:33 / Sames"
|
|
26 |
! !
|
|
27 |
|