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

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

Name: MorphicTests-mt.87
Author: mt
Time: 8 June 2022, 3:02:18.474335 pm
UUID: 4c18dae8-f267-4c41-a3d4-7027c7a964cd
Ancestors: MorphicTests-mt.86

Fixes several tests that only fail if the system uses (pre-rendered) StrikeFonts, which is 100%, 125%, or 150% scale factor in a clean image.

=============== Diff against MorphicTests-mt.86 ===============

Item was changed:
  ----- Method: TextAnchorTest>>testHavingAnAnchorInTheCenter (in category 'tests') -----
  testHavingAnAnchorInTheCenter
  	
  	self 
  		assert: (anchoredMorph ownerChain includes: textMorph);
+ 		assert: anchoredMorph topLeft >= textMorph topLeft!
- 		assert: anchoredMorph topLeft > textMorph topLeft!

Item was changed:
  ----- Method: TextAnchorTest>>testHavingAnAnchorInTheCenterWithHorizontalPadding (in category 'tests') -----
  testHavingAnAnchorInTheCenterWithHorizontalPadding
  
  	anchoredMorph textAnchorProperties padding. 30 at 0.
  	
  	self 
  		assert: (anchoredMorph ownerChain includes: textMorph);
+ 		assert: (anchoredMorph topLeft >= textMorph topLeft)!
- 		assert: (anchoredMorph topLeft > textMorph topLeft)!

Item was changed:
  ----- Method: TextAnchorTest>>testLayoutingSetsTheMorphPosition (in category 'tests') -----
  testLayoutingSetsTheMorphPosition
  	
  	anchoredMorph := Morph new.
  	anchoredMorph textAnchorProperties
  		anchorLayout: #inline.
  	anchorAttribute anchoredMorph: anchoredMorph.
  	self prepareTextMorph.
  	
  	textMorph position: 100 at 100.
  	
+ 	self assert: anchoredMorph position >= (100 at 100).!
- 	self assert: anchoredMorph position > (100 at 100).!