Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.28.mcz

==================== Summary ====================

Name: ToolsTests-fbs.28
Author: fbs
Time: 22 March 2011, 10:36:35.73 pm
UUID: 187b54df-2bfa-ab40-bd87-057cc5bdf0b4
Ancestors: ToolsTests-fbs.27

A bunch more messageListIndex reference removals. #messageListIndexOf: encapsulates messageList a bit more. This is necessary because while a Browser's messageList stores strings, a MessageSet's messageList stores MethodReferences.

=============== Diff against ToolsTests-fbs.26 ===============

Item was added:
+ ----- Method: MessageSetTest>>testHasMessageSelected (in category 'as yet unclassified') -----
+ testHasMessageSelected
+ 	| firstSel |
+ 	firstSel := browser messageList first selector.
+ 	
+ 	browser selectMessageNamed: firstSel.
+ 	self assert: browser hasMessageSelected.
+ 	
+ 	browser selectMessageNamed: nil.
+ 	self deny: browser hasMessageSelected.
+ 	
+ 	"And just to be sure:"
+ 	browser selectMessageNamed: firstSel.
+ 	self assert: browser hasMessageSelected.!

Item was changed:
  ----- Method: MessageSetTest>>testRemoveMessageFromBrowser (in category 'as yet unclassified') -----
  testRemoveMessageFromBrowser
+ 	| count sel |
- 	| sel |
  	browser messageListIndex: 1.
  	sel := browser selection.
  	
  	browser removeMessageFromBrowser.
+ 	self deny: (browser messageList includes: sel) description: 'Method not removed'.
+ 	
+ 	browser selectMessageNamed: nil.
+ 	count := browser messageList size.
+ 	browser removeMessageFromBrowser.
+ 	self assert: count = browser messageList size description: 'Some method was removed'.!
- 	self assert: (browser messageList includes: sel).!

Item was added:
+ ----- Method: MessageSetTest>>testSelectedClassOrMetaClass (in category 'as yet unclassified') -----
+ testSelectedClassOrMetaClass
+ 	| firstClass |
+ 	firstClass := browser messageList first actualClass.
+ 	
+ 	browser selectMessageNamed: browser messageList first selector.
+ 	self assert: browser selectedClassOrMetaClass = firstClass.
+ 	
+ 	browser selectMessageNamed: nil.
+ 	self assert: browser selectedClassOrMetaClass isNil.
+ 	
+ 	"And just to be sure:"
+ 	browser selectMessageNamed: browser messageList first selector.
+ 	self assert: browser selectedClassOrMetaClass = firstClass.!

Item was added:
+ ----- Method: MessageSetTest>>testSelectedMessageCategoryName (in category 'as yet unclassified') -----
+ testSelectedMessageCategoryName
+ 	| firstCat methodRef |
+ 	methodRef := browser messageList first.
+ 	firstCat := methodRef actualClass organization categoryOfElement: methodRef selector.
+ 	
+ 	browser selectMessageNamed: browser messageList first selector.
+ 	self assert: browser selectedMessageCategoryName = firstCat.
+ 	
+ 	browser selectMessageNamed: nil.
+ 	self assert: browser selectedMessageCategoryName isNil.
+ 	
+ 	"And just to be sure:"
+ 	browser selectMessageNamed: browser messageList first selector.
+ 	self assert: browser selectedMessageCategoryName = firstCat.!

Item was added:
+ ----- Method: MessageSetTest>>testSelectedMessageName (in category 'as yet unclassified') -----
+ testSelectedMessageName
+ 	| firstSel |
+ 	firstSel := browser messageList first selector.
+ 	
+ 	browser selectMessageNamed: firstSel.
+ 	self assert: browser selectedMessageName = firstSel.
+ 	
+ 	browser selectMessageNamed: nil.
+ 	self assert: browser selectedMessageName isNil.
+ 	
+ 	"And just to be sure:"
+ 	browser selectMessageNamed: firstSel.
+ 	self assert: browser selectedMessageName = firstSel.!

Item was added:
+ ----- Method: MessageSetTest>>testSelection (in category 'as yet unclassified') -----
+ testSelection
+ 	| firstRef |
+ 	firstRef := browser messageList first.
+ 	
+ 	browser selectMessageNamed: browser messageList first selector.
+ 	self assert: browser selection = firstRef.
+ 	
+ 	browser selectMessageNamed: nil.
+ 	self assert: browser selection isNil.
+ 	
+ 	"And just to be sure:"
+ 	browser selectMessageNamed: browser messageList first selector.
+ 	self assert: browser selection = firstRef.!