The Trunk: ToolsTests-mt.100.mcz

Previous Topic Next Topic
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view

The Trunk: ToolsTests-mt.100.mcz

Marcel Taeumel uploaded a new version of ToolsTests to project The Trunk:

==================== 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

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

Item was changed:
  ----- Method: ContextInspectorTest>>testValuePaneModify (in category 'tests') -----
  "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.!