The Trunk: KernelTests-ul.294.mcz

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!