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

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


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

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

Name: ToolsTests-fbs.31
Author: fbs
Time: 23 March 2011, 10:07:47.04 pm
UUID: da97ab65-9442-8b42-9b76-5110e3223367
Ancestors: ToolsTests-fbs.30

Tests for MessageNames>>openMessageNames, and a failing marker test.

=============== Diff against ToolsTests-fbs.30 ===============

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

Item was added:
+ ----- Method: MessageNamesTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ 	browser := MessageNames openMessageNames.!

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

Item was added:
+ ----- Method: MessageNamesTest>>testMessageList (in category 'as yet unclassified') -----
+ testMessageList
+ 	browser searchString: 'cull'.
+ 	browser selectorListIndex: 0.
+ 	self assert: browser messageList isEmpty.
+ 	
+ 	browser selectorListIndex: 2.
+ 	self deny: browser messageList isEmpty.!

Item was added:
+ ----- Method: MessageNamesTest>>testOpenMessageNames (in category 'as yet unclassified') -----
+ testOpenMessageNames
+ 	| b |
+ 	b := MessageNames openMessageNames.
+ 	[self assert: (b isKindOf: MessageNames)]
+ 		ensure: [ToolBuilder default close: b topView].!

Item was added:
+ ----- Method: MessageNamesTest>>testSearchString (in category 'as yet unclassified') -----
+ testSearchString
+ 	| cCount cullCount cullCullCount |
+ 	browser searchString: 'c'.
+ 	cCount := browser selectorList size.
+ 	
+ 	browser searchString: 'cull:'.
+ 	cullCount := browser selectorList size.
+ 	
+ 	self assert: cullCount < cCount.
+ 	
+ 	browser searchString: 'cull:cull:'.
+ 	cullCullCount := browser selectorList size.
+ 	
+ 	self assert: cullCullCount < cullCount.!




More information about the Squeak-dev mailing list