The Trunk: ToolBuilder-Tests-mt.5.mcz

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

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

Name: ToolBuilder-Tests-mt.5
Author: mt
Time: 15 November 2019, 4:34:13.90333 pm
UUID: 1c48eee1-5f21-1c40-8272-ab4c1b7e71c9
Ancestors: ToolBuilder-Tests-ct.4

Fixes tree-widget tests. They got broken due to the latest updates in tree widgets, which now automatically select the selection path in the beginning without the model having to say so. That's comparable to fetching the initial list/roots etc.

=============== Diff against ToolBuilder-Tests-ct.4 ===============

Item was changed:
  TestCase subclass: #ToolBuilderTests
+ instanceVariableNames: 'builder widget queries depth'
- instanceVariableNames: 'builder widget queries'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Tests'!
 
  !ToolBuilderTests commentStamp: 'ar 2/11/2005 15:01' prior: 0!
  Some tests to make sure ToolBuilder does what it says.!

Item was changed:
  ----- Method: ToolBuilderTests>>getChildrenOf: (in category 'tests-trees') -----
  getChildrenOf: item
  queries add: #getChildrenOf.
+ depth := depth + 1.
+ ^ depth < 4 ifTrue: [(1 to: 9) asArray] ifFalse: [#()]!
- ^(1 to: 9) asArray!

Item was changed:
  ----- Method: ToolBuilderTests>>setUp (in category 'support') -----
  setUp
+ queries := IdentitySet new.
+ depth := 0.!
- queries := IdentitySet new.!

Item was changed:
  ----- Method: ToolBuilderTests>>testTreeGetSelectionPath (in category 'tests-trees') -----
  testTreeGetSelectionPath
  self makeTree.
  queries := IdentitySet new.
  self changed: #getTreeSelectionPath.
  self waitTick.
  self assert: (queries includes: #getTreeSelectionPath).
+ self assert: (queries includes: #setTreeSelection).!
- self assert: (queries includes: #getChildrenOf).
- self assert: (queries includes: #setTreeSelection).
- !

Item was changed:
  ----- Method: ToolBuilderTests>>testTreeRoots (in category 'tests-trees') -----
  testTreeRoots
  self makeTree.
  queries := IdentitySet new.
+ depth := 0.
  self changed: #getRoots.
  self assert: (queries includes: #getRoots).!