[Pkg] The Trunk: ToolsTests-fbs.41.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-fbs.41.mcz

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

Name: ToolsTests-fbs.41
Author: fbs
Time: 1 May 2011, 9:07:16.867 am
UUID: d52dd484-bcdc-8b43-b7e2-7b741bab289a
Ancestors: ToolsTests-fbs.40

Maintain the currently selected message category and method when resorting the message categories (http://bugs.squeak.org/view.php?id=7626).

=============== Diff against ToolsTests-fbs.40 ===============

Item was added:
+ ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlace (in category 'testing - message list') -----
+ testAlphabetizingMethodsPreservesPlace
+ 	| oldCategory oldMethod |
+ 	oldCategory := 'breakpoints'.
+ 	oldMethod := #toggleBreakOnEntry.
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 	browser selectMessageCategoryNamed: oldCategory.
+ 	browser selectMessageNamed: oldMethod.
+ 	browser alphabetizeMessageCategories.
+ 
+ 	self assert: browser selectedMessageCategoryName = oldCategory.
+ 	self assert: browser selectedMessageName = oldMethod.!

Item was added:
+ ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlaceWhenNoMessageCategorySelected (in category 'testing - message list') -----
+ testAlphabetizingMethodsPreservesPlaceWhenNoMessageCategorySelected
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 	browser selectMessageCategoryNamed: nil.
+ 	browser selectMessageNamed: nil.
+ 	browser alphabetizeMessageCategories.
+ 
+ 	self assert: browser selectedMessageCategoryName = nil.
+ 	self assert: browser selectedMessageName = nil.!

Item was added:
+ ----- Method: BrowserTest>>testAlphabetizingMethodsPreservesPlaceWhenNoMethodSelected (in category 'testing - message list') -----
+ testAlphabetizingMethodsPreservesPlaceWhenNoMethodSelected
+ 	| oldCategory |
+ 	oldCategory := 'breakpoints'.
+ 	browser selectSystemCategory: browser class category.
+ 	browser selectClass: browser class.
+ 	browser selectMessageCategoryNamed: oldCategory.
+ 	browser selectMessageNamed: nil.
+ 	browser alphabetizeMessageCategories.
+ 
+ 	self assert: browser selectedMessageCategoryName = oldCategory.
+ 	self assert: browser selectedMessageName = nil.!