131 ! ! |
131 ! ! |
132 |
132 |
133 !AbstractTestRunner methodsFor:'utilities'! |
133 !AbstractTestRunner methodsFor:'utilities'! |
134 |
134 |
135 suiteNameFromClasses: classes |
135 suiteNameFromClasses: classes |
|
136 |numClasses| |
136 |
137 |
137 classes size = 1 ifTrue: |
138 (numClasses := classes size) == 1 ifTrue: |
138 [^classes anyOne nameWithoutPrefix]. |
139 [^classes anyOne nameWithoutPrefix]. |
139 classes size = 2 ifTrue: |
140 numClasses == 2 ifTrue: |
140 [^String streamContents: |
141 [^String streamContents: |
141 [:s|classes |
142 [:s|classes |
142 do:[:cls|s nextPutAll: cls nameWithoutPrefix] |
143 do:[:cls|s nextPutAll: cls nameWithoutPrefix] |
143 separatedBy:[s nextPutAll:' & ']]]. |
144 separatedBy:[s nextPutAll:' & ']]]. |
144 |
145 |
145 ^classes size printString , ' test cases'. |
146 ^numClasses printString , ' test cases'. |
146 |
147 |
147 "Created: / 15-03-2010 / 13:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
148 "Created: / 15-03-2010 / 13:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
148 ! |
149 ! |
149 |
150 |
150 suiteNameFromMethods: methods |
151 suiteNameFromMethods: methods |
151 |numMethods| |
152 |numMethods| |
152 |
153 |
153 (numMethods := methods size == 1) ifTrue:[^ methods anyOne selector]. |
154 (numMethods := methods size) == 1 ifTrue:[^ methods anyOne selector]. |
|
155 |
154 ^numMethods printString , ' tests from ' , |
156 ^numMethods printString , ' tests from ' , |
155 (self suiteNameFromClasses: |
157 (self suiteNameFromClasses: |
156 (methods |
158 (methods |
157 collect:[:m|m mclass] |
159 collect:[:m|m mclass] |
158 thenSelect:[:c | c notNil]) asSet) |
160 thenSelect:[:c | c notNil]) asSet) |
159 |
161 |
160 "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
162 "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
161 ! |
163 ! |
162 |
164 |
163 suiteNameFromProtocols: protocols |
165 suiteNameFromProtocols: protocols |
|
166 |numProtocols| |
164 |
167 |
165 protocols size == 0 ifTrue:[ |
168 (numProtocols := protocols size) == 0 ifTrue:[ |
166 ^'tests' |
169 ^'tests' |
167 ]. |
170 ]. |
168 protocols size == 1 ifTrue:[ |
171 numProtocols == 1 ifTrue:[ |
169 protocols anyOne notNil ifTrue:[ |
172 protocols anyOne notNil ifTrue:[ |
170 ^'tests categorized "', protocols anyOne , '"' |
173 ^'category "', protocols anyOne , '"' |
171 ] ifFalse:[ |
174 ] ifFalse:[ |
172 ^'tests' |
175 ^'tests' |
173 ] |
176 ] |
174 ]. |
177 ]. |
175 ^'tests in ', protocols size printString , ' categories' |
178 ^numProtocols printString , ' categories' |
176 |
179 |
177 "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
180 "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
178 "Modified: / 18-10-2011 / 22:59:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
181 "Modified: / 18-10-2011 / 22:59:21 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
179 ! ! |
182 ! ! |
180 |
183 |
181 !AbstractTestRunner class methodsFor:'documentation'! |
184 !AbstractTestRunner class methodsFor:'documentation'! |
182 |
185 |
183 version |
186 version |
184 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $' |
187 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.12 2013-05-21 20:21:26 cg Exp $' |
185 ! |
188 ! |
186 |
189 |
187 version_CVS |
190 version_CVS |
188 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $' |
191 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.12 2013-05-21 20:21:26 cg Exp $' |
189 ! |
192 ! |
190 |
193 |
191 version_SVN |
194 version_SVN |
192 ^ '§Id: Tools__AbstractTestRunner.st 7681 2011-03-04 11:30:02Z vranyj1 §' |
195 ^ '$Id: Tools__AbstractTestRunner.st,v 1.12 2013-05-21 20:21:26 cg Exp $' |
193 ! ! |
196 ! ! |
194 |
197 |
|
198 |
195 AbstractTestRunner initialize! |
199 AbstractTestRunner initialize! |