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

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

Name: CollectionsTests-mt.376
Author: mt
Time: 4 May 2022, 10:36:57.297961 am
UUID: 73d28e6f-cfbf-484d-baf0-661d3bb3e8e7
Ancestors: CollectionsTests-dtl.375, CollectionsTests-EG.342

Complements Collections-mt.1009

=============== Diff against CollectionsTests-dtl.375 ===============

Item was changed:
  ----- Method: RWBinaryOrTextStreamTest>>testPeekBack (in category 'tests') -----
  testPeekBack
  	
  	| stream |
  	stream := RWBinaryOrTextStream on: String new.
  	stream nextPutAll: 'world'.
+ 	self assert: $d equals: stream peekBack.
- 	self assert: $l equals: stream peekBack.
  	stream binary.
+ 	stream nextPutAll: #[98 105 110 97 114 121].
+ 	self assert: 121 equals: stream peekBack.!
- 	stream nextPutAll: #[98 105 110 97 114 121]..
- 	self assert: 114 equals: stream peekBack.!

Item was added:
+ ----- Method: ReadStreamTest>>testOldPeekBack (in category 'tests - back') -----
+ testOldPeekBack
+ 	"Test the ability to peek backwards on the stream"
+ 	| stream |
+ 	stream := ReadStream on: 'abcd'.
+ 	stream skip: 2.
+ 	self assert: $a equals: stream oldPeekBack!

Item was added:
+ ----- Method: ReadStreamTest>>testOldPeekBackOnPosition1 (in category 'tests - back') -----
+ testOldPeekBackOnPosition1
+ 	"Ensure that #peekBack works from position 1,
+ 	giving us the first element in the stream"
+ 	| stream |
+ 	stream := ReadStream on: 'abcde'.
+ 	stream skip: 1.
+ 	self assert: nil equals: stream oldPeekBack!

Item was added:
+ ----- Method: ReadStreamTest>>testOldPeekBackOnPositionZero (in category 'tests - back') -----
+ testOldPeekBackOnPositionZero
+ 	"Ensure that we *cannot* peekBack on a stream
+ 	that is currently at the start (zero) position"
+ 	| stream |
+ 	stream := ReadStream on: 'abcd'.
+ 	self 
+ 		should: [ stream oldPeekBack ]
+ 		raise: Error!

Item was added:
+ ----- Method: ReadStreamTest>>testPeekBack (in category 'tests - back') -----
+ testPeekBack
+ 	"Test the ability to peek backwards on the stream"
+ 	| stream |
+ 	stream := ReadStream on: 'abcd'.
+ 	stream skip: 2.
+ 	self assert: $b equals: stream peekBack!

Item was added:
+ ----- Method: ReadStreamTest>>testPeekBackOnPosition1 (in category 'tests - back') -----
+ testPeekBackOnPosition1
+ 	"Ensure that #peekBack works from position 1,
+ 	giving us the first element in the stream"
+ 	| stream |
+ 	stream := ReadStream on: 'abcde'.
+ 	stream skip: 1.
+ 	self assert: $a equals: stream peekBack!

Item was added:
+ ----- Method: ReadStreamTest>>testPeekBackOnPositionZero (in category 'tests - back') -----
+ testPeekBackOnPositionZero
+ 	"Ensure that we *cannot* peekBack on a stream
+ 	that is currently at the start (zero) position"
+ 	| stream |
+ 	stream := ReadStream on: 'abcd'.
+ 	self 
+ 		should: [ stream peekBack ]
+ 		raise: Error!