Patrick Rein uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-pre.383.mcz
==================== Summary ====================
Name: CollectionsTests-pre.383 Author: pre Time: 2 January 2023, 1:14:46.973278 pm UUID: 35b73a28-4a3f-6e45-8cd5-2e3e00bb95ce Ancestors: CollectionsTests-ct.382
Adds an expected failure test documenting a potential issue with LimitedWriteStream in combination with symbols, which results in the stream limit to be ignored.
=============== Diff against CollectionsTests-ct.382 ===============
Item was added: + TestCase subclass: #LimitedWriteStreamTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'CollectionsTests-Streams'!
Item was added: + ----- Method: LimitedWriteStreamTest>>expectedFailure (in category 'failures') ----- + expectedFailure + + ^ #(testPutSymbolOnLimitedStringStream)!
Item was added: + ----- Method: LimitedWriteStreamTest>>expectedFailures (in category 'failures') ----- + expectedFailures + + ^ #(testPutSymbolOnLimitedStringStream)!
Item was added: + ----- Method: LimitedWriteStreamTest>>testPutStringOnLimitedStringStream (in category 'tests') ----- + testPutStringOnLimitedStringStream + + | stream result | + stream := LimitedWriteStream on: (String new: 5). + stream setLimit: 5 limitBlock: [result := stream contents]. + 'abcdef' printOn: stream. + self + assert: '''abcd' + equals: result. + !
Item was added: + ----- Method: LimitedWriteStreamTest>>testPutSymbolOnLimitedStringStream (in category 'tests') ----- + testPutSymbolOnLimitedStringStream + + | stream result | + stream := LimitedWriteStream on: (String new: 5). + stream setLimit: 5 limitBlock: [result := stream contents]. + #abcdef printOn: stream. + self + assert: '#''abc' + equals: result. + !