|
<code>
| a b c |
a := OrderedCollection new.
b := OrderedCollection new.
c := OrderedCollection new.
TestCase allSubclassesDo: [ :class |
(class name endsWith: 'Tests') ifTrue: [
a add: class
] ifFalse: [
(class name endsWith: 'Test') ifTrue: [
b add: class
] ifFalse: [
c add: class
]
]
].
{ a . b . c } inspect
</code>
|
|
|
Priority: 5 – Fix If Time
|
|
Status: Work Needed
|
|
Assigned to: Everyone
|
|
Milestone: Pharo7.0
|
Go to Case
|
|