Packages February 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: SystemReporter-cmm.19.mcz
by commits＠source.squeak.org 03 Feb '12

03 Feb '12

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

1 0

The Trunk: SystemReporter-cmm.19.mcz
by commits＠source.squeak.org 03 Feb '12

03 Feb '12

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2012