[squeak-dev] The Inbox: ProtocolsTests-fbs.1.mcz

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


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

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

Name: ProtocolsTests-fbs.1
Author: fbs
Time: 23 March 2011, 10:13:32.761 pm
UUID: 60d34548-1480-8649-815c-5604e70b6857
Ancestors: 

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

==================== Snapshot ====================

SystemOrganization addCategory: #ProtocolsTests!

TestCase subclass: #LexiconTest
	instanceVariableNames: 'browser'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ProtocolsTests'!

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

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

----- 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.!

----- 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 ].!

----- 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.!

TestCase subclass: #ProtocolBrowserTest
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'ProtocolsTests'!

----- 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 ].!

----- 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