Chris Muller uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-cmm.404.mcz
==================== Summary ====================
Name: CollectionsTests-cmm.404 Author: cmm Time: 18 February 2024, 5:18:33.048788 pm UUID: 1a56870d-c708-4750-bf4b-165435161a68 Ancestors: CollectionsTests-mt.403
Test #peek: with a negative argument.
=============== Diff against CollectionsTests-mt.403 ===============
Item was changed: ----- Method: ReadStreamTest>>testPeeks (in category 'tests - accessing') ----- testPeeks | stream | stream := self streamOnArray. self assert: (stream peek: 0) = #(). self assert: (stream peek: 1) = #(1). self assert: (stream peek: 3) = #(1 (a b c) false). self assert: (stream peek: 4) = #(1 (a b c) false). stream next. + + self assert: (stream peek: -1) = #(1). - self assert: (stream peek: 0) = #(). self assert: (stream peek: 1) = #((a b c)). self assert: (stream peek: 3) = #((a b c) false).!