"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#AssociationTests
	instanceVariableNames:'empty nonEmpty a b'
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression'
!


!AssociationTests class methodsFor:'others'!

version_CVS
    ^ '$Header$'
! !

!AssociationTests class methodsFor:'queries'!

coveredClassNames
    ^ #( Association )

    "Created: / 06-07-2011 / 21:28:33 / cg"
! !

!AssociationTests methodsFor:'initialize / release'!

setUp
        a := 1 -> 'one'.
        b := 1 -> 'een'.
! !

!AssociationTests methodsFor:'tests-associations'!

testEquality

        self 
                assert: (a key = b key);
                deny: (a value = b value);
                deny: (a = b)
!

testEquality2
        |a1 a2|

        a1 := 10->100.
        a2 := 10->100.
        self assert: (a1 = a2)
!

testHash

        self 
                assert: (a hash = a copy hash);
                deny: (a hash = b hash)
!

testPrinting
    self assert:(a printString = '1->one').

    "Created: / 06-07-2011 / 21:37:59 / cg"
! !

!AssociationTests class methodsFor:'documentation'!

version
    ^ '$Header$'
! !