[squeak-dev] The Trunk: ToolsTests-mt.100.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Oct 14 12:11:10 UTC 2020


Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-mt.100.mcz

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

Name: ToolsTests-mt.100
Author: mt
Time: 14 October 2020, 2:11:09.641569 pm
UUID: 524dc727-12cc-8f48-88c1-850b45942bd1
Ancestors: ToolsTests-mt.99

Rename #doWithIndex: to #withIndexDo:. See http://forum.world.st/The-Inbox-60Deprecated-ct-80-mcz-td5120706.html

=============== Diff against ToolsTests-mt.99 ===============

Item was changed:
  ----- Method: ContextInspectorTest>>testValuePaneModify (in category 'tests') -----
  testValuePaneModify
  	"Try to change the values of all arguments and temporary variables. Check if the object-under-inspection receives those changes."
  
  	| testObjectFound |
  	testObjectFound := false.
  	
+ 	self object tempNames withIndexDo: [:temp :index |
- 	self object tempNames doWithIndex: [:temp :index |
  		| prior current input |
  		self inspector selectFieldSuchThat: [:field | field type = #tempVar and: [field key = temp]].
  		self assertFieldSelected: '*', temp, '*'. "allow bells and whistles"
  		
  		prior := self object namedTempAt: index.
  		self assert: (prior isNumber or: [prior == InnerTestObject]).
  
  		testObjectFound := testObjectFound or: [prior == InnerTestObject].
  		current := (prior isNumber ifTrue: [prior + 1] ifFalse: [#smith]).
  		input := prior isNumber ifTrue: [self inspector contents, ' +1'] ifFalse: ['#smith'].
  		
  		self deny: current equals: (self object namedTempAt: index).
  		self inValuePaneTypeAndAccept: input.
  		self assert: current equals: (self object namedTempAt: index)].
  	
  	self assert: testObjectFound.!



More information about the Squeak-dev mailing list