A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-fbs.40.mcz

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

Name: ToolsTests-fbs.40
Author: fbs
Time: 17 April 2011, 10:29:53.768 pm
UUID: 9e9fe3b4-b00b-e241-be77-4ce429e1477c
Ancestors: ToolsTests-fbs.39

Lame autoSelectString test. "Lame" because we just check that a particular update's sent by the model.

=============== Diff against ToolsTests-fbs.39 ===============

Item was changed:
  TestCase subclass: #MessageSetTest
+ 	instanceVariableNames: 'browser updates'
- 	instanceVariableNames: 'browser'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'ToolsTests-Browser'!

Item was added:
+ ----- Method: MessageSetTest>>initialize (in category 'initialize-release') -----
+ initialize
+ 	super initialize.
+ 	
+ 	"Contains the triggers sent by the model during its updates."
+ 	updates := OrderedCollection new.!

Item was changed:
  ----- Method: MessageSetTest>>setUp (in category 'running') -----
  setUp
  	browser := (MessageSet
  		openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:)
  		name: 'Test MessageSet'
+ 		autoSelect: nil) model.
+ 
+ 	browser addDependent: self.!
- 		autoSelect: nil) model.!

Item was added:
+ ----- Method: MessageSetTest>>testAutoSelectString (in category 'testing') -----
+ testAutoSelectString
+ 	browser autoSelectString: 'browseAllImplementorsOf:'.
+ 	self assert: browser autoSelectString = 'browseAllImplementorsOf:'.
+ 	browser messageListIndex: 2.
+ 	self assert: (updates includes: #autoSelect).!

Item was added:
+ ----- Method: MessageSetTest>>update: (in category 'private') -----
+ update: aSelector
+ 	updates addLast: aSelector.!

Item was changed:
  ----- Method: MessageTraceTest>>setUp (in category 'as yet unclassified') -----
  setUp
  	browser := (MessageTrace
  		openMessageList: (SystemNavigation default allImplementorsOf: #browseAllImplementorsOf:)
  		name: 'Test MessageSet'
+ 		autoSelect: nil) model.
+ 		
+ 	browser addDependent: self.!
- 		autoSelect: nil) model.!