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

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

Name: ToolsTests-fbs.42
Author: fbs
Time: 6 May 2011, 12:11:08.284 pm
UUID: 6904c63d-84de-fe4a-bf72-97c6e9ec8d72
Ancestors: ToolsTests-fbs.41

Tests for M7628 ("DependencyBrowser "browse" button doesn't work").

=============== Diff against ToolsTests-fbs.41 ===============

Item was added:
+ TestCase subclass: #DependencyBrowserTest
+ 	instanceVariableNames: 'browser'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'ToolsTests-Browser'!

Item was added:
+ ----- Method: DependencyBrowserTest>>setUp (in category 'running') -----
+ setUp
+ 	browser := DependencyBrowser new.!

Item was added:
+ ----- Method: DependencyBrowserTest>>testBrowse (in category 'testing - buttons') -----
+ testBrowse
+ 	| b |
+ 	browser packageListIndex: (browser packageList indexOf: #Collections).
+ 	browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
+ 	browser classDepsIndex: (browser classDeps indexOf: #Scanner).
+ 	browser classListIndex: (browser classList indexOf: #Symbol).
+ 	browser messageListIndex: 1.
+ 
+ 	b := browser browseMethodFull.
+ 	self assert: b notNil.
+ 	[self assert: b selectedMessageName = (browser messageList at: browser messageListIndex) ]
+ 		ensure: [ToolBuilder default close: b topView]!

Item was added:
+ ----- Method: DependencyBrowserTest>>testClassList (in category 'testing - class list') -----
+ testClassList
+ 	"Warning!! When Collections' dependencies change, this test may start to fail!!"
+ 	self assert: browser classList isEmpty.
+ 	
+ 	browser packageListIndex: (browser packageList indexOf: #Collections).
+ 	self assert: browser classList isEmpty.
+ 	
+ 	browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
+ 	self assert: browser classList isEmpty.
+ 	
+ 	browser classDepsIndex: (browser classDeps indexOf: #Scanner).
+ 		self assert: browser classList = #(Symbol #'Symbol class').
+ 	
+ 	browser classListIndex: (browser classList indexOf: #Symbol).
+ 	self assert: browser classList = #(Symbol #'Symbol class').!

Item was added:
+ ----- Method: DependencyBrowserTest>>testHasPackageSelected (in category 'testing - metaclass') -----
+ testHasPackageSelected
+ 	self deny: browser hasPackageSelected.
+ 	
+ 	browser packageListIndex: 1.
+ 	self assert: browser hasPackageSelected.
+ 	
+ 	browser packageListIndex: 0.
+ 	self deny: browser hasPackageSelected.!

Item was added:
+ ----- Method: DependencyBrowserTest>>testSelectedClassOrMetaClass (in category 'testing - metaclass') -----
+ testSelectedClassOrMetaClass
+ 	"Warning!! When Collections' dependencies change, this test may start to fail!!"
+ 	self assert: browser selectedClassOrMetaClass isNil.
+ 
+ 	browser packageListIndex: (browser packageList indexOf: #Collections).
+ 	self assert: browser selectedClassOrMetaClass isNil.
+ 	
+ 	browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
+ 	self assert: browser selectedClassOrMetaClass isNil.
+ 	
+ 	browser classDepsIndex: (browser classDeps indexOf: #Scanner).
+ 	self assert: browser selectedClassOrMetaClass isNil.
+ 	
+ 	browser classListIndex: (browser classList indexOf: #Symbol).
+ 
+ 	self deny: browser selectedClassOrMetaClass isNil.
+ 	self assert: browser selectedClassOrMetaClass == Symbol.!

Item was added:
+ ----- Method: DependencyBrowserTest>>testSelectedMessageName (in category 'testing - message list') -----
+ testSelectedMessageName
+ 	"Warning!! When Collections' dependencies change, this test may start to fail!!"
+ 	self assert: browser selectedMessageName isNil.
+ 
+ 	browser packageListIndex: (browser packageList indexOf: #Collections).
+ 	self assert: browser selectedMessageName isNil.
+ 	
+ 	browser packageDepsIndex: (browser packageDeps indexOf: #Compiler).
+ 	self assert: browser selectedMessageName isNil.
+ 	
+ 	browser classDepsIndex: (browser classDeps indexOf: #Scanner).
+ 	self assert: browser selectedMessageName isNil.
+ 	
+ 	browser classListIndex: (browser classList indexOf: #Symbol).
+ 	self assert: browser selectedMessageName isNil.
+ 	
+ 	browser messageListIndex: 1.
+ 	self assert: browser selectedMessageName == #storeOn:.
+ 	
+ 	browser messageListIndex: 0.
+ 	self assert: browser selectedMessageName isNil.!