Christoph Thiede uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-ct.57.mcz
==================== Summary ====================
Name: Compression-ct.57 Author: ct Time: 3 January 2022, 7:17:31.519703 pm UUID: 32eabe2a-30cb-9e45-9820-3f00c262870f Ancestors: Compression-dtl.55
Fixes ZipWriteStream regression tests. The file stream under test, and thus FastInflateStream, streams bytes rather than chracters, so provide ByteArrays rather than strings as target buffers.
=============== Diff against Compression-dtl.55 ===============
Item was changed: ----- Method: ZipWriteStream class>>regressionDecompress:from:notifying:stats: (in category 'regression test') ----- regressionDecompress: aFile from: tempFile notifying: progressBar stats: stats "Validate aFile as decompressed from tempFile" | unzip rawSize compressedSize buffer1 buffer2 | rawSize := aFile size. compressedSize := tempFile size. aFile ascii. aFile position: 0. tempFile ascii. tempFile position: 0. + buffer1 := ByteArray new: 4096. - buffer1 := String new: 4096. buffer2 := buffer1 copy. unzip := FastInflateStream on: tempFile. [aFile atEnd] whileFalse:[ progressBar value: aFile position. buffer1 := aFile nextInto: buffer1. buffer2 := unzip nextInto: buffer2. buffer1 = buffer2 ifFalse:[^self logProblem: 'contents ' for: aFile]. ]. unzip next = nil ifFalse:[^self logProblem: 'EOF' for: aFile]. stats at: #rawSize put: (stats at: #rawSize ifAbsent:[0]) + rawSize. stats at: #compressedSize put: (stats at: #compressedSize ifAbsent:[0]) + compressedSize. ^compressedSize asFloat / rawSize asFloat.!
packages@lists.squeakfoundation.org