The Inbox: ToolsTests-fbs.31.mcz

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