Chris Muller uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-cmm.19.mcz
==================== Summary ====================
Name: SystemReporter-cmm.19 Author: cmm Time: 2 February 2012, 11:16:52.731 pm UUID: 6d7357ee-74c3-4003-bb37-8598bf8ae096 Ancestors: SystemReporter-laza.18
Report Failed Tests and Errors as a list of debuggable expressions.
=============== Diff against SystemReporter-laza.18 ===============
Item was added: + ----- Method: SystemReporter>>printDebugExpressionFor:on: (in category 'private') ----- + printDebugExpressionFor: methodSignature on: aStream + | compiledMethod | + compiledMethod := Compiler evaluate: methodSignature. + aStream + nextPut: $( ; + nextPutAll: compiledMethod methodClass name ; + nextPutAll: ' selector: #' ; + nextPutAll: compiledMethod selector ; + nextPutAll: ') debug.'!
Item was changed: ----- Method: SystemReporter>>reportTestRunner: (in category 'reporting') ----- + reportTestRunner: aStream + testRunner ifNil: + [ | runAllTests | - reportTestRunner: aStream - testRunner ifNil: [| runAllTests | runAllTests := UIManager confirm: 'Running all Tests\will take long time' withCRs. runAllTests + ifTrue: [ testRunner := TestRunner new runAll ] + ifFalse: + [ categoriesSelected remove: #SUnit. + ^ self changed: #categorySelected ] ]. + self + header: 'SUnit Results' + on: aStream. + aStream nextPutAll: testRunner statusText ; cr ; cr. + self + header: 'Failed Tests' + on: aStream. + testRunner failedList do: + [ : each | self + printDebugExpressionFor: each + on: aStream. + aStream cr ]. - ifTrue: [testRunner := TestRunner new runAll] - ifFalse: [ - categoriesSelected remove: #SUnit. - ^self changed: #categorySelected]]. - self header: 'SUnit Results' on: aStream. - aStream nextPutAll: testRunner statusText; cr; cr. - self header: 'Failed Tests' on: aStream. - testRunner failedList do: [:each | aStream nextPutAll: each; cr]. aStream cr. + self + header: 'Errors' + on: aStream. + testRunner errorList do: + [ : each | self + printDebugExpressionFor: each + on: aStream. + aStream cr ]! - self header: 'Errors' on: aStream. - testRunner errorList do: [:each | aStream nextPutAll: each; cr] - !
squeak-dev@lists.squeakfoundation.org