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]
- !