[squeak-dev] The Trunk: ToolsTests-fbs.12.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.12.mcz
==================== Summary ====================
Name: ToolsTests-fbs.12
Author: fbs
Time: 9 March 2011, 11:03:41.002 am
UUID: bbfce460-417d-f443-85df-df720e078714
Ancestors: ToolsTests-fbs.11
Rather use the proper methods, especially since we aim for #classListIndex: to be used solely by the ToolBuilder stuff.
=============== Diff against ToolsTests-fbs.10 ===============
Item was added:
+ ----- Method: BrowserTest>>testHasClassSelected (in category 'as yet unclassified') -----
+ testHasClassSelected
+ browser selectedSystemCategory: browser class category.
+ self deny: browser hasClassSelected.
+
+ browser selectClass: browser class.
+ self assert: browser hasClassSelected.
+
+ browser selectClass: nil.
+ self deny: browser hasClassSelected.!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedFalseOnExistingClass (in category 'as yet unclassified') -----
testMetaClassIndicatedFalseOnExistingClass
browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
- browser classListIndex: (browser classList indexOf: browser class name).
browser metaClassIndicated: false.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self deny: browser contents isEmpty. "It shows the class definition."
self deny: browser messageCategoryList isEmpty.
self assert: browser messageList = (browser class organization allMethodSelectors).
self assert: browser editSelection = #editClass.!
Item was changed:
----- Method: BrowserTest>>testMetaClassIndicatedTrueOnExistingClass (in category 'as yet unclassified') -----
testMetaClassIndicatedTrueOnExistingClass
browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
- browser classListIndex: (browser classList indexOf: browser class name).
browser metaClassIndicated: true.
self assert: browser messageListIndex = 0.
self assert: browser messageCategoryListIndex = 0.
self deny: browser contents isEmpty. "It shows the Class definition."
self deny: browser messageCategoryList isEmpty.
self assert: browser messageList = (browser class classSide organization allMethodSelectors).!
Item was changed:
----- Method: BrowserTest>>testSelectClassSelectsClass (in category 'as yet unclassified') -----
testSelectClassSelectsClass
browser selectSystemCategory: browser class category.
+ browser selectClass: browser class.
- browser classListIndex: (browser classList indexOf: browser class name).
self assert: browser classListIndex ~= 0.!
More information about the Squeak-dev
mailing list
|