[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