The Trunk: ToolsTests-mt.100.mcz

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