The Trunk: MorphicTests-mt.71.mcz

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