--- a/TestCase.st Tue Jan 16 15:44:17 2001 +0100
+++ b/TestCase.st Tue Jan 16 15:45:04 2001 +0100
@@ -40,11 +40,12 @@
!
suite
- | testSelectors result |
- testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each].
- result := TestSuite new.
- testSelectors do: [:each | result addTest: (self selector: each)].
- ^result
+ | testSelectors result |
+ testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each].
+ testSelectors sort.
+ result := TestSuite new.
+ testSelectors do: [:each | result addTest: (self selector: each)].
+ ^result
"Modified: / 21.6.2000 / 10:05:24 / Sames"
! !
@@ -193,6 +194,6 @@
!TestCase class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.9 2000-12-14 13:08:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.10 2001-01-16 14:45:04 cg Exp $'
! !
TestCase initialize!