--- a/Tools__TestRunner2.st Sun Jul 28 11:38:21 2013 +0100
+++ b/Tools__TestRunner2.st Thu Aug 01 10:27:56 2013 +0100
@@ -1554,13 +1554,14 @@
[:gen |
|testCases|
- testCases := OrderedCollection new:8.
+ testCases := OrderedCollection new.
gen do:[:cls | (self isTestCaseLike:cls) ifTrue:[ testCases add:cls ] ].
testCases ]
argument:self classListOutGeneratorHolder ].
^ classListInGeneratorHolder
"Created: / 01-02-2010 / 09:50:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 30-07-2013 / 19:28:47 / cg"
!
classListOutGeneratorHolder
@@ -1855,7 +1856,7 @@
!TestRunner2::ClassList class methodsFor:'documentation'!
version
- ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+ ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
! !
!TestRunner2::ClassList methodsFor:'private'!
@@ -2118,7 +2119,7 @@
classes := Dictionary new.
result tests do:
[:test|
- (classes at: test class ifAbsentPut:[OrderedCollection new:1])
+ (classes at: test class ifAbsentPut:[OrderedCollection new])
add: test].
children := classes keysAndValuesCollect:
[:class :tests|
@@ -2127,7 +2128,7 @@
^entry.
"Created: / 19-03-2010 / 08:36:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified: / 04-08-2011 / 20:30:39 / cg"
+ "Modified: / 30-07-2013 / 19:29:10 / cg"
!
makeRootEntry
@@ -2356,11 +2357,11 @@
!TestRunner2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
!
version_HG
@@ -2369,7 +2370,7 @@
!
version_SVN
- ^ '$Id: Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $'
+ ^ '$Id: Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $'
! !