Patrick Rein uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-pre.89.mcz==================== Summary ====================
Name: ToolsTests-pre.89
Author: pre
Time: 11 December 2018, 5:07:04.160299 pm
UUID: 3cc4553a-b373-47d0-ac04-875dea46ae50
Ancestors: ToolsTests-pre.88
Adds a test documenting the (intended) behavior of the class browser to reset the instance/class mode when changing the system category.
Also changes three tests to be more resilient with respect to other symbols present in the image (having a symbol #cull somewhere in the image breaks the changed tests).
=============== Diff against ToolsTests-pre.88 ===============
Item was added:
+ ----- Method: BrowserTest>>testMetaClassIndicatedIsResetByChangedSystemCategory (in category 'tests') -----
+ testMetaClassIndicatedIsResetByChangedSystemCategory
+ browser selectSystemCategory: browser class category.
+ browser metaClassIndicated: true.
+ browser selectSystemCategory: self class category.
+
+ self deny: browser metaClassIndicated.!
Item was changed:
----- Method: MessageNamesTest>>testSelectedClassOrMetaClass (in category 'tests') -----
testSelectedClassOrMetaClass
| firstClass |
+ browser searchString: 'cull:'.
- browser searchString: 'cull'.
firstClass := browser messageList first actualClass.
browser messageListIndex: 1.
self assert: browser selectedClassOrMetaClass = firstClass.
browser messageListIndex: 0.
self assert: browser selectedClassOrMetaClass isNil.
"And just to be sure:"
browser messageListIndex: 1.
self assert: browser selectedClassOrMetaClass = firstClass.!
Item was changed:
----- Method: MessageNamesTest>>testSelectedMessageCategoryName (in category 'tests') -----
testSelectedMessageCategoryName
+ browser searchString: 'cull:'.
- browser searchString: 'cull'.
browser selectorListIndex: 1.
browser messageListIndex: 1.
self deny: browser selectedMessageCategoryName isNil.
browser messageListIndex: 0.
self assert: browser selectedMessageCategoryName isNil.!
Item was changed:
----- Method: MessageNamesTest>>testSelection (in category 'tests') -----
testSelection
+ browser searchString: 'cull:'.
- browser searchString: 'cull'.
browser selectorListIndex: 1.
browser messageListIndex: 1.
self assert: (browser selection isKindOf: MethodReference).
browser messageListIndex: 0.
self assert: browser selection isNil.!