--- a/reports/Builder__TestReport.st	Tue Sep 16 20:47:48 2014 +0200
+++ b/reports/Builder__TestReport.st	Wed Oct 29 15:11:15 2014 +0100
@@ -306,11 +306,12 @@
     outcome collectedOutput: collector contents. 
     format writeTestCase: testcase outcome: outcome time: time exception: exception.
     Transcript show:'...ERROR'.
+    Logger trace: 'Finised %1>>%2, result ERROR' with: testcase nameForHDTestReport with: testcase selectorForHDTestReport.
     self errorOutcomes add:outcome.      
     nerror := nerror + 1.
 
     "Created: / 03-08-2011 / 15:00:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 16-09-2014 / 18:55:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-10-2014 / 14:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addFailure: testcase detail: exception
@@ -319,11 +320,12 @@
     outcome collectedOutput: collector contents. 
     format writeTestCase: testcase outcome: outcome time: time exception: exception.
     Transcript show:'...FAILED'.
+    Logger trace: 'Finised %1>>%2, result FAILED' with: testcase nameForHDTestReport with: testcase selectorForHDTestReport.
     self failureOutcomes add: outcome.
     nfailed := nfailed + 1.
 
     "Created: / 03-08-2011 / 15:00:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 16-09-2014 / 15:23:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-10-2014 / 14:01:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addPass: testcase
@@ -331,10 +333,11 @@
     outcome result: TestResult statePass.
     format writeTestCase: testcase outcome: outcome time: time exception: nil.
     Transcript show:'...OK'.
+    Logger trace: 'Finised %1>>%2, result PASSED' with: testcase nameForHDTestReport with: testcase selectorForHDTestReport.
     npassed := npassed + 1.
 
     "Created: / 03-08-2011 / 15:19:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 06-06-2014 / 09:34:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-10-2014 / 14:01:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addSkipped: testcase
@@ -344,10 +347,11 @@
     outcome result: TestResult stateSkip.
     format writeTestCase: testcase outcome: outcome time: time exception: nil.
     Transcript show:'...SKIPPED'.
+    Logger trace: 'Finised %1>>%2, result SKIPPED' with: testcase nameForHDTestReport with: testcase selectorForHDTestReport.
     nskipped := nskipped + 1.
 
     "Created: / 21-11-2012 / 15:35:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 16-09-2014 / 19:47:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-10-2014 / 14:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'initialization'!
@@ -423,8 +427,7 @@
         sel := '...' , (sel copyFrom: sel size - 16 to: sel size)
     ].
     Transcript showCR:('%1 >> #%2' bindWith: aTestCase nameForHDTestReport with: aTestCase selectorForHDTestReport).
-    Transcript show:('%-20s >> %-20s : ' printfWith: nm with: sel). 
-
+    Transcript show:('%-20s >> %-20s : ' printfWith: nm with: sel).
 
     outcome := self createOutcome.
     outcome testCase: aTestCase.
@@ -449,7 +452,7 @@
     self error:'Unssuported platform'
 
     "Created: / 12-01-2012 / 17:52:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 28-11-2012 / 18:04:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-10-2014 / 13:57:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TestReport::Result methodsFor:'running-private'!
@@ -457,6 +460,7 @@
 lightForkCase:aTestCase debugged: debugged timeout: timeout
     | thread sema stime etime timeouted error stack log logPos |
 
+    Logger trace: 'Running %1>>%2' with: aTestCase nameForHDTestReport with: aTestCase selectorForHDTestReport.
     Transcript show:'F'.
     sema := Semaphore new.
     stime := OperatingSystem getMillisecondTime.
@@ -486,14 +490,15 @@
                      time: etime - stime
                 exception: error
                stacktrace: stack.
-         Transcript show:'...ERROR'
+         Transcript show:'...ERROR'.
+         Logger trace: 'Finised %1>>%2, result ERROR (timeout)' with: aTestCase nameForHDTestReport with: aTestCase selectorForHDTestReport.
     ].
 
     outcome := nil.
     Transcript cr.
 
     "Created: / 12-01-2012 / 17:42:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 06-06-2014 / 09:33:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 29-10-2014 / 13:59:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 unixForkCase:aTestCase debugged: debugged timeout: timeout