[squeak-dev] The Trunk: KernelTests-ul.294.mcz

commits at source.squeak.org commits at source.squeak.org
Wed May 6 18:11:57 UTC 2015


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

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

Name: KernelTests-ul.294
Author: ul
Time: 6 May 2015, 1:08:44.167 pm
UUID: 85c2194d-73c4-479d-8c4a-2c4663594c91
Ancestors: KernelTests-nice.293

#groupBy:having -> #groupBy:

=============== Diff against KernelTests-nice.293 ===============

Item was changed:
  ----- Method: CompiledMethodComparisonTest>>testHash (in category 'tests') -----
  testHash
  	<timeout: 120>
  	
  	| ai |
  	ai := CompiledMethod allInstances.
  	"We assume here that if two CompiledMethods are equal then they have the same size and header."
  	((ai
+ 		groupBy: [ :method | { method size. method header } ])
+ 		replace: [ :each | each asArray ])
- 		groupBy: [ :method | { method size. method header } ]
- 		having: [ :methods | true ])
- 		collect: [ :each | each asArray ])
  		do: [ :methods |
  			1 to: methods size do: [ :i |
  				i to: methods size do: [ :j |
  					(methods at: i) = (methods at: j) ifTrue: [
  						self assert: (methods at: i) hash equals: (methods at: i) hash ] ] ] ]
  		displayingProgress: 'Testing hashes'.
  	self assert: (ai collect: [ :cm | cm hash ] as: Set) size * 2 >= ai asSet size!



More information about the Squeak-dev mailing list