The Trunk: Compression-ul.51.mcz

Levente Uzonyi uploaded a new version of Compression to project The Trunk:
http://source.squeak.org/trunk/Compression-ul.51.mcz

==================== Summary ====================

Name: Compression-ul.51
Author: ul
Time: 13 March 2017, 4:02:56.707225 am
UUID: af1ea6d3-5443-4264-bb31-509dcba32a1d
Ancestors: Compression-tfel.50

SortedCollection Whack-a-mole

=============== Diff against Compression-tfel.50 ===============

Item was changed:
  ----- Method: ZipWriteStream class>>regressionTestFrom:using:stats: (in category 'regression test') -----
  regressionTestFrom: fd using: tempName stats: stats
  | files |
+ files := fd fileNames sort.
- files := fd fileNames asSortedCollection.
  files do:[:fName| | fullName file |
  file := nil.
  fullName := fd fullNameFor: fName.
  fullName = tempName ifFalse:[
  file := StandardFileStream new open: fullName forWrite: false].
  self compressAndDecompress: file using: tempName stats: stats].
  stats at: #numFiles put: (stats at: #numFiles ifAbsent:[0]) + files size.
  files := nil.
  self printRegressionStats: stats from: fd.
+ fd directoryNames sort do:[:dName|
- fd directoryNames asSortedCollection do:[:dName|
  self regressionTestFrom: (fd directoryNamed: dName) using: tempName stats: stats.
  ].!