'From Squeak3.10.2 of ''5 June 2008'' [latest update: #7179] on 6 October 2009 at 2:24:08 pm'!
"Change Set:		M7258-Dictionary-asSet-Test-nice
Date:			6 October 2009
Author:			nice

Test for http://bugs.squeak.org/view.php?id=7258
Dictionary asSet does not behave like a Set"!


!DictionaryTest methodsFor: 'tests' stamp: 'nice 10/6/2009 14:21'!
testAsSet
	"Non regression test for http://bugs.squeak.org/view.php?id=7258"
	
	| aDictionary aSet assoc0 assoc1 |
	
	"Create a dictionary"
	aDictionary := Dictionary new.
	
	"Convert it to a Set"
	aSet := aDictionary asSet.

	"Add two associations to it"	
	assoc0 := #first -> 0.
	assoc1 := #first -> 1.
	aSet add: assoc0 copy; add: assoc1.
	
	"Check if the two associations were added (that should happen if they are different)"
	self
		assert: (assoc0 copy ~= assoc1) ==> (aSet size > 1)
		description:
  			'When adding two different elements, the set size should be greater than one'! !