'From Squeak3.7alpha of ''11 September 2003'' [latest update: #5657] on 21 January 2004 at 8:21:06 pm'! TestCase subclass: #AssociationTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Collections-Support-Tests'! !AssociationTest methodsFor: 'testing' stamp: 'brp 1/21/2004 20:20'! testEquality | a b | a _ 1 -> 'one'. b _ 1 -> 'een'. self assert: (a key = b key); deny: (a value = b value); deny: (a = b) ! !