The Inbox: ToolsTests-fbs.12.mcz

A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/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.11 ===============

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