equal
deleted
inserted
replaced
146 |
146 |
147 "Created: / 15-03-2010 / 13:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
147 "Created: / 15-03-2010 / 13:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
148 ! |
148 ! |
149 |
149 |
150 suiteNameFromMethods: methods |
150 suiteNameFromMethods: methods |
|
151 |numMethods| |
151 |
152 |
152 methods size = 1 ifTrue:[^methods anyOne selector]. |
153 (numMethods := methods size == 1) ifTrue:[^ methods anyOne selector]. |
153 ^methods size printString , ' tests from ' , |
154 ^numMethods printString , ' tests from ' , |
154 (self suiteNameFromClasses: (methods collect:[:m|m mclass]) asSet) |
155 (self suiteNameFromClasses: |
|
156 (methods |
|
157 collect:[:m|m mclass] |
|
158 thenSelect:[:c | c notNil]) asSet) |
155 |
159 |
156 "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
160 "Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
157 ! |
161 ! |
158 |
162 |
159 suiteNameFromProtocols: protocols |
163 suiteNameFromProtocols: protocols |
175 ! ! |
179 ! ! |
176 |
180 |
177 !AbstractTestRunner class methodsFor:'documentation'! |
181 !AbstractTestRunner class methodsFor:'documentation'! |
178 |
182 |
179 version |
183 version |
180 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011-10-18 21:12:21 vrany Exp $' |
184 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $' |
181 ! |
185 ! |
182 |
186 |
183 version_CVS |
187 version_CVS |
184 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.10 2011-10-18 21:12:21 vrany Exp $' |
188 ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $' |
185 ! |
189 ! |
186 |
190 |
187 version_SVN |
191 version_SVN |
188 ^ '§Id: Tools__AbstractTestRunner.st 7681 2011-03-04 11:30:02Z vranyj1 §' |
192 ^ '§Id: Tools__AbstractTestRunner.st 7681 2011-03-04 11:30:02Z vranyj1 §' |
189 ! ! |
193 ! ! |