[squeak-dev] The Trunk: ToolsTests-fbs.30.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 23:28:32 UTC 2011
Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.30.mcz
==================== Summary ====================
Name: ToolsTests-fbs.30
Author: fbs
Time: 23 March 2011, 8:56:58.836 pm
UUID: 310972cc-af61-9c4d-99b8-0c683eae62f4
Ancestors: ToolsTests-fbs.29
Lots of tests! LexiconTest>>testOpenFullProtocolForClass illustrates an annoyance: ProtocolBrowser class has several constructor-like methods that don't work or make sense for a Lexicon; Browser has the same. It's like the inheritance tree is exactly backwards!
=============== Diff against ToolsTests-fbs.29 ===============
Item was added:
+ ----- Method: BrowserTest>>testHomeCategory (in category 'as yet unclassified') -----
+ testHomeCategory
+ "This also 'just happens' to test #selectOriginalCategoryForCurrentMethod. It's not appropriate to directly test a private method. (It's a private method because its comment says so, not its category.)"
+ browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
+ browser messageCategoryListIndex: 0. "Select -- all --"
+ browser selectMessageNamed: browser messageList first.
+ browser showHomeCategory.
+
+ self assert: browser selectedMessageCategoryName = (browser class organization categoryOfElement: browser selectedMessageName).!
Item was added:
+ TestCase subclass: #LexiconTest
+ instanceVariableNames: 'browser'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ToolsTests-Browser'!
Item was added:
+ ----- Method: LexiconTest>>setUp (in category 'as yet unclassified') -----
+ setUp
+ browser := Lexicon new openOnClass: Lexicon showingSelector: Lexicon allSelectors asOrderedCollection first.!
Item was added:
+ ----- Method: LexiconTest>>tearDown (in category 'as yet unclassified') -----
+ tearDown
+ ToolBuilder default close: browser topView.!
Item was added:
+ ----- 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 added:
+ ----- 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 added:
+ ----- 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 added:
+ TestCase subclass: #ProtocolBrowserTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'ToolsTests-Browser'!
Item was added:
+ ----- 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 added:
+ ----- 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
|