equal
deleted
inserted
replaced
1552 classListInGeneratorHolder ifNil: |
1552 classListInGeneratorHolder ifNil: |
1553 [ classListInGeneratorHolder := BlockValue with: |
1553 [ classListInGeneratorHolder := BlockValue with: |
1554 [:gen | |
1554 [:gen | |
1555 |testCases| |
1555 |testCases| |
1556 |
1556 |
1557 testCases := OrderedCollection new:8. |
1557 testCases := OrderedCollection new. |
1558 gen do:[:cls | (self isTestCaseLike:cls) ifTrue:[ testCases add:cls ] ]. |
1558 gen do:[:cls | (self isTestCaseLike:cls) ifTrue:[ testCases add:cls ] ]. |
1559 testCases ] |
1559 testCases ] |
1560 argument:self classListOutGeneratorHolder ]. |
1560 argument:self classListOutGeneratorHolder ]. |
1561 ^ classListInGeneratorHolder |
1561 ^ classListInGeneratorHolder |
1562 |
1562 |
1563 "Created: / 01-02-2010 / 09:50:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1563 "Created: / 01-02-2010 / 09:50:11 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1564 "Modified: / 30-07-2013 / 19:28:47 / cg" |
1564 ! |
1565 ! |
1565 |
1566 |
1566 classListOutGeneratorHolder |
1567 classListOutGeneratorHolder |
1567 |
1568 |
1568 classListOutGeneratorHolder ifNil: |
1569 classListOutGeneratorHolder ifNil: |
1853 ! ! |
1854 ! ! |
1854 |
1855 |
1855 !TestRunner2::ClassList class methodsFor:'documentation'! |
1856 !TestRunner2::ClassList class methodsFor:'documentation'! |
1856 |
1857 |
1857 version |
1858 version |
1858 ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $' |
1859 ^'$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $' |
1859 ! ! |
1860 ! ! |
1860 |
1861 |
1861 !TestRunner2::ClassList methodsFor:'private'! |
1862 !TestRunner2::ClassList methodsFor:'private'! |
1862 |
1863 |
1863 nameListEntryFor:aClass withNameSpace:useFullName |
1864 nameListEntryFor:aClass withNameSpace:useFullName |
2116 [label := label , (result timestamp printStringFormat: timestampFormat)]. |
2117 [label := label , (result timestamp printStringFormat: timestampFormat)]. |
2117 entry := ListEntry labeled: label. |
2118 entry := ListEntry labeled: label. |
2118 classes := Dictionary new. |
2119 classes := Dictionary new. |
2119 result tests do: |
2120 result tests do: |
2120 [:test| |
2121 [:test| |
2121 (classes at: test class ifAbsentPut:[OrderedCollection new:1]) |
2122 (classes at: test class ifAbsentPut:[OrderedCollection new]) |
2122 add: test]. |
2123 add: test]. |
2123 children := classes keysAndValuesCollect: |
2124 children := classes keysAndValuesCollect: |
2124 [:class :tests| |
2125 [:class :tests| |
2125 self makeClassEntryFor: class result: result tests: tests]. |
2126 self makeClassEntryFor: class result: result tests: tests]. |
2126 entry setChildren: children. |
2127 entry setChildren: children. |
2127 ^entry. |
2128 ^entry. |
2128 |
2129 |
2129 "Created: / 19-03-2010 / 08:36:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2130 "Created: / 19-03-2010 / 08:36:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2130 "Modified: / 04-08-2011 / 20:30:39 / cg" |
2131 "Modified: / 30-07-2013 / 19:29:10 / cg" |
2131 ! |
2132 ! |
2132 |
2133 |
2133 makeRootEntry |
2134 makeRootEntry |
2134 |
2135 |
2135 | entry children | |
2136 | entry children | |
2354 ! ! |
2355 ! ! |
2355 |
2356 |
2356 !TestRunner2 class methodsFor:'documentation'! |
2357 !TestRunner2 class methodsFor:'documentation'! |
2357 |
2358 |
2358 version |
2359 version |
2359 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $' |
2360 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $' |
2360 ! |
2361 ! |
2361 |
2362 |
2362 version_CVS |
2363 version_CVS |
2363 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $' |
2364 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $' |
2364 ! |
2365 ! |
2365 |
2366 |
2366 version_HG |
2367 version_HG |
2367 |
2368 |
2368 ^ '$Changeset: <not expanded> $' |
2369 ^ '$Changeset: <not expanded> $' |
2369 ! |
2370 ! |
2370 |
2371 |
2371 version_SVN |
2372 version_SVN |
2372 ^ '$Id: Tools__TestRunner2.st,v 1.42 2013-07-04 15:19:38 cg Exp $' |
2373 ^ '$Id: Tools__TestRunner2.st,v 1.43 2013-07-30 17:34:24 cg Exp $' |
2373 ! ! |
2374 ! ! |
2374 |
2375 |
2375 |
2376 |
2376 TestRunner2 initialize! |
2377 TestRunner2 initialize! |