equal
deleted
inserted
replaced
38 selector: aSymbol |
38 selector: aSymbol |
39 ^self new setTestSelector: aSymbol |
39 ^self new setTestSelector: aSymbol |
40 ! |
40 ! |
41 |
41 |
42 suite |
42 suite |
43 | testSelectors result | |
43 | testSelectors result | |
44 testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each]. |
44 testSelectors := self sunitSelectors select: [:each | 'test*' sunitMatch: each]. |
45 result := TestSuite new. |
45 testSelectors sort. |
46 testSelectors do: [:each | result addTest: (self selector: each)]. |
46 result := TestSuite new. |
47 ^result |
47 testSelectors do: [:each | result addTest: (self selector: each)]. |
|
48 ^result |
48 |
49 |
49 "Modified: / 21.6.2000 / 10:05:24 / Sames" |
50 "Modified: / 21.6.2000 / 10:05:24 / Sames" |
50 ! ! |
51 ! ! |
51 |
52 |
52 !TestCase methodsFor:'Accessing'! |
53 !TestCase methodsFor:'Accessing'! |
191 ! ! |
192 ! ! |
192 |
193 |
193 !TestCase class methodsFor:'documentation'! |
194 !TestCase class methodsFor:'documentation'! |
194 |
195 |
195 version |
196 version |
196 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.9 2000-12-14 13:08:19 cg Exp $' |
197 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.10 2001-01-16 14:45:04 cg Exp $' |
197 ! ! |
198 ! ! |
198 TestCase initialize! |
199 TestCase initialize! |