Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.181.mcz
==================== Summary ====================
Name: CollectionsTests-ul.181 Author: ul Time: 22 February 2011, 4:32:17.481 pm UUID: f61b5b99-8de8-7a46-a8b7-71e58d9d8a77 Ancestors: CollectionsTests-ul.180
Refactored and extended ReadStreamTest >> #testPositionOfSubCollection.
=============== Diff against CollectionsTests-ul.180 ===============
Item was changed: ----- Method: ReadStreamTest>>testPositionOfSubCollection (in category 'tests - positioning') ----- testPositionOfSubCollection - - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'q' ) = 0. - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'x' ) = 1.
+ | stream | + stream := self streamOn: 'xyz'. + #( + '' 1 + 'q' 0 + 'x' 1 + 'y' 2 + 'z' 3 + 'xz' 0 + 'xy' 1 + 'yz' 2 + 'xyz' 1) pairsDo: [ :pattern :expectedPosition | + self + assert: expectedPosition equals: (stream positionOfSubCollection: pattern); + assert: 0 equals: stream position ]! - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'y' ) = 2. - self assert: ((self streamOn: 'xyz') positionOfSubCollection: 'z' ) = 3.!