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