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*' match: each]. |
44 testSelectors := self sunitSelectors select: [:each | 'test*' match: each]. |
45 testSelectors sort. |
45 testSelectors sort. |
46 result := TestSuite new. |
46 result := TestSuite new. |
47 testSelectors do: [:each | result addTest: (self selector: each)]. |
47 result name:self name. |
48 ^result |
48 testSelectors do: [:each | result addTest: (self selector: each)]. |
|
49 ^result |
49 |
50 |
50 "Modified: / 21.6.2000 / 10:05:24 / Sames" |
51 "Modified: / 21.6.2000 / 10:05:24 / Sames" |
51 ! ! |
52 ! ! |
52 |
53 |
53 !TestCase methodsFor:'Accessing'! |
54 !TestCase methodsFor:'Accessing'! |
127 removeDependentFromHierachy: anObject |
128 removeDependentFromHierachy: anObject |
128 "an empty method. for Composite compability with TestSuite" |
129 "an empty method. for Composite compability with TestSuite" |
129 ! ! |
130 ! ! |
130 |
131 |
131 !TestCase methodsFor:'Printing'! |
132 !TestCase methodsFor:'Printing'! |
|
133 |
|
134 name |
|
135 ^ self class name. |
|
136 ! |
132 |
137 |
133 printOn: aStream |
138 printOn: aStream |
134 aStream nextPutAll: self class name. |
139 aStream nextPutAll: self class name. |
135 aStream nextPutAll: '>>'. |
140 aStream nextPutAll: '>>'. |
136 aStream nextPutAll: testSelector |
141 aStream nextPutAll: testSelector |
208 ! ! |
213 ! ! |
209 |
214 |
210 !TestCase class methodsFor:'documentation'! |
215 !TestCase class methodsFor:'documentation'! |
211 |
216 |
212 version |
217 version |
213 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.14 2001-10-16 11:57:46 cg Exp $' |
218 ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.15 2001-11-21 15:04:51 cg Exp $' |
214 ! ! |
219 ! ! |
215 TestCase initialize! |
220 TestCase initialize! |