The following code breaks:
(SortedCollectionTest>>#testDo) = (SortedCollectionTest>>#testStoreOn).
because it makes use of AdditionalMethodState>>#analogousCodeTo: which tries to
send #analogousCodeTo: to a property which is an Association.
It seems to me the solution is to implement Association>>#analogousCodeTo: with
an equality test:
analogousCodeTo: anObject
^self class == anObject class
and: [ self = anObject ]
Does this make sense?
See:
https://pharo.fogbugz.com/f/cases/12077/MNU-in-AdditionalMethodState-analogousCodeTo
Oscar Nierstrasz
