Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.71.mcz
==================== Summary ====================
Name: MorphicTests-mt.71 Author: mt Time: 1 March 2021, 5:59:12.350934 pm UUID: 848fe7e9-51bf-1544-8c4f-ac96274f1f5f Ancestors: MorphicTests-mt.70
Adds tests about layer-specific add-all interface.
=============== Diff against MorphicTests-mt.70 ===============
Item was changed: ----- Method: MorphTest>>createAndAddMorphs: (in category 'support') ----- createAndAddMorphs: someNames
+ (self createMorphs: someNames) do: [:newMorph | - (self createMorphs: #(a b)) do: [:newMorph | morph addMorphBack: newMorph].!
Item was added: + ----- Method: MorphTest>>createMorphs:inLayers: (in category 'support') ----- + createMorphs: names inLayers: layerNumbers + + ^ names with: layerNumbers collect: [:name :layer | + Morph new name: name; morphicLayerNumber: layer; yourself]!
Item was added: + ----- Method: MorphTest>>test13AddAllMorphsInLayers (in category 'tests - submorphs - layers') ----- + test13AddAllMorphsInLayers + + morph addAllMorphsInLayers: (self createMorphs: #(a b) inLayers: #(5 4)). + self assert: #(b a) equals: self getSubmorphNames. + + morph addAllMorphsInLayers: (self createMorphs: #(x y z) inLayers: #(3 3 5)). + self assert: #(x y b a z) equals: self getSubmorphNames.!
Item was added: + ----- Method: MorphTest>>test14AddAllMorphsFrontInLayers (in category 'tests - submorphs - layers') ----- + test14AddAllMorphsFrontInLayers + + morph addAllMorphsFrontInLayers: (self createMorphs: #(a b) inLayers: #(5 4)). + self assert: #(b a) equals: self getSubmorphNames. + + morph addAllMorphsFrontInLayers: (self createMorphs: #(x y z) inLayers: #(3 3 5)). + self assert: #(x y b z a) equals: self getSubmorphNames.!
Item was added: + ----- Method: MorphTest>>test15AddAllMorphsBackInLayers (in category 'tests - submorphs - layers') ----- + test15AddAllMorphsBackInLayers + + morph addAllMorphsBackInLayers: (self createMorphs: #(a b) inLayers: #(5 4)). + self assert: #(b a) equals: self getSubmorphNames. + + morph addAllMorphsBackInLayers: (self createMorphs: #(x y z) inLayers: #(3 3 5)). + self assert: #(x y b a z) equals: self getSubmorphNames.!
squeak-dev@lists.squeakfoundation.org