Patrick Rein uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-pre.384.mcz

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

Name: CollectionsTests-pre.384
Author: pre
Time: 2 January 2023, 1:27:06.565278 pm
UUID: 3a23c00a-1e5e-384a-a797-cfb8250f46fe
Ancestors: CollectionsTests-pre.383

Improves on the LimitedWriteStreamTests:
- adds a test case for the stream contents
- fixes the literal in the limit block test
- removes accidentially committed expectedFailure

(sorry for the noise)

=============== Diff against CollectionsTests-pre.383 ===============

Item was removed:
- ----- Method: LimitedWriteStreamTest>>expectedFailure (in category 'failures') -----
- expectedFailure
- 
- 	^ #(testPutSymbolOnLimitedStringStream)!

Item was changed:
  ----- Method: LimitedWriteStreamTest>>expectedFailures (in category 'failures') -----
  expectedFailures
  
+ 	^ #(testPutSymbolOnLimitedStringStream testStreamContentsPutSymbolOnLimitedStringStream)!
- 	^ #(testPutSymbolOnLimitedStringStream)!

Item was changed:
  ----- Method: LimitedWriteStreamTest>>testPutSymbolOnLimitedStringStream (in category 'tests') -----
  testPutSymbolOnLimitedStringStream
  
  	| stream result |
  	stream := LimitedWriteStream on: (String new: 5).
  	stream setLimit: 5 limitBlock: [result := stream contents].
  	#abcdef printOn: stream.
  	self 
+ 		assert: '#abcd'
+ 		equals: result.!
- 		assert: '#''abc'
- 		equals: result.
- 	!

Item was added:
+ ----- Method: LimitedWriteStreamTest>>testStreamContentsPutSymbolOnLimitedStringStream (in category 'tests') -----
+ testStreamContentsPutSymbolOnLimitedStringStream
+ 
+ 	| stream result |
+ 	stream := LimitedWriteStream on: (String new: 5).
+ 	stream setLimit: 5 limitBlock: [result := stream contents].
+ 	#abcdef printOn: stream.
+ 	self 
+ 		assert: '#abcd'
+ 		equals: stream contents.
+ 	!