[Pkg] The Trunk: ToolsTests-fbs.30.mcz

[commits at source.squeak.org]

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

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

Name: ToolsTests-fbs.30
Author: fbs
Time: 23 March 2011, 8:56:58.836 pm
UUID: 310972cc-af61-9c4d-99b8-0c683eae62f4
Ancestors: ToolsTests-fbs.29

Lots of tests! LexiconTest>>testOpenFullProtocolForClass illustrates an annoyance: ProtocolBrowser class has several constructor-like methods that don't work or make sense for a Lexicon; Browser has the same. It's like the inheritance tree is exactly backwards!

=============== Diff against ToolsTests-fbs.29 ===============

Item was added:
+ ----- Method: BrowserTest>>testHomeCategory (in category 'as yet unclassified') -----
+ testHomeCategory
+ 	"This also 'just happens' to test #selectOriginalCategoryForCurrentMethod. It's not appropriate to directly test a private method. (It's a private method because its comment says so, not its category.)"
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 	browser messageCategoryListIndex: 0. "Select -- all --"
+ 	browser selectMessageNamed: browser messageList first.
+ 	browser showHomeCategory.
+ 	
+ 	self assert: browser selectedMessageCategoryName = (browser class organization categoryOfElement: browser selectedMessageName).!

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

Item was added:
+ ----- Method: LexiconTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	browser := Lexicon new openOnClass: Lexicon showingSelector: Lexicon allSelectors asOrderedCollection first.!

Item was added:
+ ----- Method: LexiconTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ 	ToolBuilder default close: browser topView.!

Item was added:
+ ----- Method: LexiconTest>>testLastSearchString (in category 'as yet unclassified') -----
+ testLastSearchString
+ 	| longestName |
+ 	browser lastSearchString: 'No selector includes this in its name, I''ll bet!!'.
+ 	self assert: browser messageList isEmpty.
+ 	
+ 	browser lastSearchString: ''.
+ 	self deny: browser messageList isEmpty.
+ 	
+ 	longestName := (browser class allSelectors asOrderedCollection sort: [:a :b | a size < b size]) last.
+ 	browser lastSearchString: longestName.
+ 	self assert: browser messageList size = 1.!

Item was added:
+ ----- Method: LexiconTest>>testOpenFullProtocolForClass (in category 'as yet unclassified') -----
+ testOpenFullProtocolForClass
+ 	| l |
+ 	l := (Lexicon openFullProtocolForClass: Lexicon).
+ 	[self assert: (l isKindOf: ProtocolBrowser)] "No, really!!"
+ 		ensure: [ ToolBuilder default close: l topView ].!

Item was added:
+ ----- Method: LexiconTest>>testSelectCategoryListIndex (in category 'as yet unclassified') -----
+ testSelectCategoryListIndex
+ 	browser categoryListIndex: 0.
+ 	browser messageListIndex: 1.
+ 	self assert: browser categoryListIndex = 0.
+ 	self deny: browser hasMessageSelected.
+ 	
+ 	browser categoryListIndex: 1.
+ 	browser messageListIndex: 1.
+ 	self assert: browser categoryListIndex = 1.
+ 	self assert: browser hasMessageSelected.
+ 	self assert: browser messageListIndex = 1.!

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

Item was added:
+ ----- Method: ProtocolBrowserTest>>testOpenFullProtocolForClass (in category 'as yet unclassified') -----
+ testOpenFullProtocolForClass
+ 	| pb |
+ 	pb := (ProtocolBrowser openFullProtocolForClass: ProtocolBrowser).
+ 	[self assert: (pb isKindOf: ProtocolBrowser)]
+ 		ensure: [ ToolBuilder default close: pb topView ].!

Item was added:
+ ----- Method: ProtocolBrowserTest>>testOpenSubProtocolForClass (in category 'as yet unclassified') -----
+ testOpenSubProtocolForClass
+ 	| pb |
+ 	pb := (ProtocolBrowser openSubProtocolForClass: ProtocolBrowser).
+ 	[self assert: (pb isKindOf: ProtocolBrowser)]
+ 		ensure: [ ToolBuilder default close: pb topView ].!