[Pkg] The Trunk: Compression-ul.51.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 13 14:41:30 UTC 2017


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.
  	].!



More information about the Packages mailing list