equal
deleted
inserted
replaced
1696 ! ! |
1696 ! ! |
1697 |
1697 |
1698 !TestRunner2::ClassList class methodsFor:'documentation'! |
1698 !TestRunner2::ClassList class methodsFor:'documentation'! |
1699 |
1699 |
1700 version |
1700 version |
1701 ^'$Id: Tools__TestRunner2.st,v 1.19 2011-08-09 20:42:20 cg Exp $' |
1701 ^'$Id: Tools__TestRunner2.st,v 1.20 2011-08-10 22:25:08 vrany Exp $' |
1702 ! ! |
1702 ! ! |
1703 |
1703 |
1704 !TestRunner2::ClassList methodsFor:'private'! |
1704 !TestRunner2::ClassList methodsFor:'private'! |
1705 |
1705 |
1706 nameListEntryFor:aClass withNameSpace:useFullName |
1706 nameListEntryFor:aClass withNameSpace:useFullName |
1937 !TestRunner2::ResultList methodsFor:'private-list'! |
1937 !TestRunner2::ResultList methodsFor:'private-list'! |
1938 |
1938 |
1939 makeClassEntryFor: class result: result tests: tests |
1939 makeClassEntryFor: class result: result tests: tests |
1940 |
1940 |
1941 | entry children | |
1941 | entry children | |
1942 entry := ListEntry labeled: class name. |
1942 entry := ListEntry labeled: (class perform:#sunitName ifNotUnderstood:[class name]). |
1943 children := (tests asSortedCollection: [:a :b|a selector < b selector]) |
1943 children := (tests asSortedCollection: [:a :b|a selector < b selector]) |
1944 collect:[:test|self makeTestEntryFor: test result: result]. |
1944 collect:[:test|self makeTestEntryFor: test result: result]. |
1945 entry setChildren: children. |
1945 entry setChildren: children. |
1946 (entry result ~= #passed and:[results size = 1]) ifTrue:[entry expand]. |
1946 (entry result ~= #passed and:[results size = 1]) ifTrue:[entry expand]. |
1947 ^entry |
1947 ^entry |
2195 ! ! |
2195 ! ! |
2196 |
2196 |
2197 !TestRunner2 class methodsFor:'documentation'! |
2197 !TestRunner2 class methodsFor:'documentation'! |
2198 |
2198 |
2199 version |
2199 version |
2200 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.19 2011-08-09 20:42:20 cg Exp $' |
2200 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.20 2011-08-10 22:25:08 vrany Exp $' |
2201 ! |
2201 ! |
2202 |
2202 |
2203 version_CVS |
2203 version_CVS |
2204 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.19 2011-08-09 20:42:20 cg Exp $' |
2204 ^ '$Header: /cvs/stx/stx/libtool/Tools__TestRunner2.st,v 1.20 2011-08-10 22:25:08 vrany Exp $' |
2205 ! |
2205 ! |
2206 |
2206 |
2207 version_SVN |
2207 version_SVN |
2208 ^ '§Id: Tools__TestRunner2.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
2208 ^ '§Id: Tools__TestRunner2.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
2209 ! ! |
2209 ! ! |