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

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

Name: CollectionsTests-mt.386
Author: mt
Time: 29 March 2023, 11:46:09.135107 am
UUID: 4eac586d-966a-a248-b6df-63cdbbab87ae
Ancestors: CollectionsTests-tpr.385

Tests for Collections-mt.1031

=============== Diff against CollectionsTests-tpr.385 ===============

Item was added:
+ ----- Method: TextTest>>testAsPlainText (in category 'tests - plain text') -----
+ testAsPlainText
+ 
+ 	| exampleString exampleText |
+ 	exampleString := 'hello'.
+ 	exampleText := exampleString asText.
+ 	exampleText addAttribute: TextColor yellow.
+ 
+ 	self assert: exampleString asPlainText isPlainText.
+ 	self assert: exampleText asPlainText isPlainText.!

Item was added:
+ ----- Method: TextTest>>testAsPlainTextIdentity (in category 'tests - plain text') -----
+ testAsPlainTextIdentity
+ 
+ 	| exampleString exampleText |
+ 	exampleString := 'hello'.
+ 	exampleText := exampleString asText.
+ 
+ 	self assert: exampleString == exampleString asPlainText.
+ 	self assert: exampleText == exampleText asPlainText.
+ 	
+ 	exampleText addAttribute: TextColor yellow.
+ 	self deny: exampleText == exampleText asPlainText.
+ 	self assert: exampleText hasColorAttribute.!

Item was added:
+ ----- Method: TextTest>>testHasAnyAttribute (in category 'tests - plain text') -----
+ testHasAnyAttribute
+ 
+ 	| exampleText |
+ 	exampleText := 'hello' asText.
+ 	exampleText addAttribute: TextColor yellow.
+ 	
+ 	self assert: exampleText hasAnyAttribute.
+ 	exampleText removeAllAttributes.
+ 	self deny: exampleText hasAnyAttribute.
+ 	
+ 	exampleText addAttribute: TextAlignment centered.
+ 	self assert: exampleText hasAnyAttribute.
+ 	self assert: exampleText isPlainText.!

Item was added:
+ ----- Method: TextTest>>testIsPlainText (in category 'tests - plain text') -----
+ testIsPlainText
+ 
+ 	self assert: 'hello' isPlainText.
+ 	self assert: 'hello' asText isPlainText.
+ 	
+ 	self deny: ('hello' asText addAttribute: TextColor yellow) isPlainText.
+ 	self assert: ('hello' asText addAttribute: TextAlignment centered) isPlainText.
+ 	
+ 	self assert: ('hello' asText addAttribute: TextColor yellow) asString asText isPlainText.!