<div dir="ltr">Why not implement Dictionary replace:?<br></div><div class="gmail_extra"><br><div class="gmail_quote">2015-05-06 20:11 GMT+02:00  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Levente Uzonyi uploaded a new version of KernelTests to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/KernelTests-ul.295.mcz" target="_blank">http://source.squeak.org/trunk/KernelTests-ul.295.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: KernelTests-ul.295<br>
Author: ul<br>
Time: 6 May 2015, 2:35:40.628 pm<br>
UUID: bd2d63b5-9819-4e81-b1e0-d14594c158ad<br>
Ancestors: KernelTests-ul.294<br>
<br>
Fix: Dictionary DNU #replace:<br>
<br>
=============== Diff against KernelTests-ul.294 ===============<br>
<br>
Item was changed:<br>
  ----- Method: CompiledMethodComparisonTest&gt;&gt;testHash (in category &#39;tests&#39;) -----<br>
  testHash<br>
        &lt;timeout: 120&gt;<br>
<br>
        | ai |<br>
        ai := CompiledMethod allInstances.<br>
        &quot;We assume here that if two CompiledMethods are equal then they have the same size and header.&quot;<br>
+       (ai groupBy: [ :method | { method size. method header } ]) values<br>
+               replace: [ :each | each asArray ];<br>
-       ((ai<br>
-               groupBy: [ :method | { method size. method header } ])<br>
-               replace: [ :each | each asArray ])<br>
                do: [ :methods |<br>
                        1 to: methods size do: [ :i |<br>
                                i to: methods size do: [ :j |<br>
                                        (methods at: i) = (methods at: j) ifTrue: [<br>
                                                self assert: (methods at: i) hash equals: (methods at: i) hash ] ] ] ]<br>
                displayingProgress: &#39;Testing hashes&#39;.<br>
        self assert: (ai collect: [ :cm | cm hash ] as: Set) size * 2 &gt;= ai asSet size!<br>
<br>
<br>
</blockquote></div><br></div>