--- a/Tools__TestRunner2.st Fri Nov 04 16:33:23 2016 +0100
+++ b/Tools__TestRunner2.st Sat Nov 05 13:05:15 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
Copyright (c) 2009-2010 eXept Software AG
@@ -2182,20 +2180,22 @@
!
makeResultEntryFor: result
-
| entry children classes label |
+
label := result name ? ''.
- result timestamp ifNotNil:
- [label := label , (result timestamp printStringFormat: timestampFormat)].
+ result timestamp notNil ifTrue:[
+ label := label , (result timestamp printStringFormat: timestampFormat)
+ ].
entry := ListEntry labeled: label.
classes := Dictionary new.
- result tests do:
- [:test|
+ result tests do: [:test|
(classes at: test class ifAbsentPut:[OrderedCollection new])
- add: test].
- children := classes keysAndValuesCollect:
- [:class :tests|
- self makeClassEntryFor: class result: result tests: tests].
+ add: test
+ ].
+ children :=
+ classes keysAndValuesCollect: [:class :tests|
+ self makeClassEntryFor: class result: result tests: tests
+ ].
entry setChildren: children.
^entry.