Dump all threads when testcase times out.
This could help to identify a reason for timeout, i.e., whether
the testcase takes a long time or if it got stuck is some kind
of deadlock.
--- a/reports/Builder__ReportRunner.st Fri Jun 06 10:29:27 2014 +0200
+++ b/reports/Builder__ReportRunner.st Fri Jun 06 10:29:34 2014 +0200
@@ -128,6 +128,10 @@
aStream cr; cr.
aStream nextPutAll: '== ['; nextPutAll: aProcess id printString; nextPutAll:'] '; nextPutAll: aProcess name; nextPutAll: ' =='; cr.
aStream cr.
+ aStream nextPutAll: ' State: '; nextPutAll: aProcess state printString; cr.
+ aStream nextPutAll: ' Group: '; nextPutAll: aProcess processGroupId printString; cr.
+ aStream nextPutAll: ' Creator: '; nextPutAll: aProcess processGroupId printString; cr.
+ aStream nextPutAll: ' Stack: '; cr; cr.
aProcess == Processor activeProcess ifTrue:[ctx := thisContext] ifFalse:[ctx := aProcess suspendedContext].
[ ctx notNil ] whileTrue:[
@@ -143,6 +147,7 @@
"
"Created: / 28-06-2013 / 01:00:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 06-06-2014 / 09:14:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
dumpProcesses