class: Tools::AbstractTestRunner
changed:
#suiteNameFromClasses:
#suiteNameFromMethods:
#suiteNameFromProtocols:
--- a/Tools__AbstractTestRunner.st Tue May 21 22:21:03 2013 +0200
+++ b/Tools__AbstractTestRunner.st Tue May 21 22:21:26 2013 +0200
@@ -133,16 +133,17 @@
!AbstractTestRunner methodsFor:'utilities'!
suiteNameFromClasses: classes
+ |numClasses|
- classes size = 1 ifTrue:
+ (numClasses := classes size) == 1 ifTrue:
[^classes anyOne nameWithoutPrefix].
- classes size = 2 ifTrue:
+ numClasses == 2 ifTrue:
[^String streamContents:
[:s|classes
do:[:cls|s nextPutAll: cls nameWithoutPrefix]
separatedBy:[s nextPutAll:' & ']]].
- ^classes size printString , ' test cases'.
+ ^numClasses printString , ' test cases'.
"Created: / 15-03-2010 / 13:23:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -150,7 +151,8 @@
suiteNameFromMethods: methods
|numMethods|
- (numMethods := methods size == 1) ifTrue:[^ methods anyOne selector].
+ (numMethods := methods size) == 1 ifTrue:[^ methods anyOne selector].
+
^numMethods printString , ' tests from ' ,
(self suiteNameFromClasses:
(methods
@@ -161,18 +163,19 @@
!
suiteNameFromProtocols: protocols
+ |numProtocols|
- protocols size == 0 ifTrue:[
+ (numProtocols := protocols size) == 0 ifTrue:[
^'tests'
].
- protocols size == 1 ifTrue:[
+ numProtocols == 1 ifTrue:[
protocols anyOne notNil ifTrue:[
- ^'tests categorized "', protocols anyOne , '"'
+ ^'category "', protocols anyOne , '"'
] ifFalse:[
^'tests'
]
].
- ^'tests in ', protocols size printString , ' categories'
+ ^numProtocols printString , ' categories'
"Created: / 15-03-2010 / 13:22:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 18-10-2011 / 22:59:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -181,15 +184,16 @@
!AbstractTestRunner class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.12 2013-05-21 20:21:26 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.11 2012-10-17 18:12:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__AbstractTestRunner.st,v 1.12 2013-05-21 20:21:26 cg Exp $'
!
version_SVN
- ^ '§Id: Tools__AbstractTestRunner.st 7681 2011-03-04 11:30:02Z vranyj1 §'
+ ^ '$Id: Tools__AbstractTestRunner.st,v 1.12 2013-05-21 20:21:26 cg Exp $'
! !
+
AbstractTestRunner initialize!