The Inbox: CollectionsTests-EG.342.mcz

A new version of CollectionsTests was added to project The Inbox:
http://source.squeak.org/inbox/CollectionsTests-EG.342.mcz

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

Name: CollectionsTests-EG.342
Author: EG
Time: 7 August 2020, 8:18:24.376363 pm
UUID: cd08c4bb-0a50-4a33-9fd1-96876f07f3e0
Ancestors: CollectionsTests-ul.341

Adding tests for the updated #peekBack behavior

=============== Diff against CollectionsTests-ul.341 ===============

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!