The Inbox: ToolsTests-fbs.32.mcz

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