[squeak-dev] The Inbox: ToolsTests-fbs.32.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 23 22:23:36 UTC 2011


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

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

Name: ToolsTests-fbs.32
Author: fbs
Time: 23 March 2011, 10:23:03.273 pm
UUID: 8e56c740-331d-ca42-abbc-c368cfa4f187
Ancestors: ToolsTests-fbs.31

ProtocolBrowser, Lexicon aren't in Tools-Browser but in Protocols-Tools, so their tests belong in the ProtocolsTests package.

=============== Diff against ToolsTests-fbs.31 ===============

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

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

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

Item was removed:
- ----- 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 removed:
- ----- 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 removed:
- ----- 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 removed:
- TestCase subclass: #ProtocolBrowserTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'ToolsTests-Browser'!

Item was removed:
- ----- 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 removed:
- ----- 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 ].!




More information about the Squeak-dev mailing list