[squeak-dev] The Trunk: CollectionsTests-mt.376.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed May 4 08:37:02 UTC 2022
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!
More information about the Squeak-dev
mailing list
|