Chris Muller uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-cmm.48.mcz
==================== Summary ====================
Name: SUnitGUI-cmm.48 Author: cmm Time: 2 March 2010, 5:42:44.01 pm UUID: 05105d37-bba8-4553-a4ef-0b51030da6cb Ancestors: SUnitGUI-klub.47
- Corrected reference to MessageSet>>#openMessageList:... to utilize the ToolSet api.
=============== Diff against SUnitGUI-klub.47 ===============
Item was changed: ----- Method: TestRunner>>collectCoverageFor: (in category 'actions') ----- collectCoverageFor: methods | wrappers suite | wrappers := methods collect: [ :each | TestCoverage on: each ]. suite := self reset; suiteAll. [ wrappers do: [ :each | each install ]. [ self runSuite: suite ] ensure: [ wrappers do: [ :each | each uninstall ] ] ] valueUnpreemptively. wrappers := wrappers reject: [ :each | each hasRun ]. wrappers isEmpty ifTrue: [ UIManager default inform: 'Congratulations. Your tests cover all code under analysis.' ] ifFalse: + [ ToolSet + browseMessageSet: (wrappers collect: [ :each | each reference ]) + name: 'Not Covered Code (' , (100 - (100 * wrappers size // methods size)) printString , '% Code Coverage)' + autoSelect: nil ]. - [ MessageSet - openMessageList: (wrappers collect: [ :each | each reference ]) - name: 'Not Covered Code (' , (100 - (100 * wrappers size // methods size)) printString , '% Code Coverage)' ]. self saveResultInHistory!
squeak-dev@lists.squeakfoundation.org