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

"{ NameSpace: RegressionTests }"

TestCase subclass:#CacheDictionaryTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-Collections'
!


!CacheDictionaryTest methodsFor:'testing'!

testAdd
    "(self run: #testAdd)"

    | dict |
    dict := CacheDictionary new:4.
    self assert: (dict isEmpty).

    dict add:(1->'one').
    self assert: (dict size == 1).

    dict add:(2->'two').
    self assert: (dict size == 2).

    dict add:(3->'three').
    self assert: (dict size == 3).

    dict add:(4->'four').
    self assert: (dict size == 4).

    dict add:(5->'five').
    self assert: (dict size == 5).

    dict add:(6->'six').
    self assert: (dict size == 6).

    dict add:(7->'seven').
    self assert: (dict size == 7).

    dict add:(8->'eight').
    self assert: (dict size == 7).

    dict add:(9->'nine').
    self assert: (dict size == 7).
!

testAddRemove
    "(self run: #testAddRemove)"

    | dict notThere wasRemoved toRemove keysBefore keysAfter|

    dict := CacheDictionary new:4.
    self assert: (dict isEmpty).

    1 to:50 do:[:i | dict at:i put:i printString].
    self assert: (dict size == 7).

    self assert:(dict includesKey:17) not.
    
    notThere := false.    
    wasRemoved := (dict removeKey:17 ifAbsent:[ notThere := true. nil ]) notNil.
    self assert:notThere.
    self assert:wasRemoved not.
    self assert:(dict size == 7).

    toRemove := dict keys first.
    self assert:(dict includesKey:toRemove).
    notThere := false.    
    wasRemoved := (dict removeKey:toRemove ifAbsent:[ notThere := true. nil ]) notNil.
    self assert:notThere not.
    self assert:wasRemoved.
    self assert:(dict size == 6).

    keysBefore := dict keys copy.
    self assert:(dict size == keysBefore size).
    dict add:(99->'99').
    keysAfter := dict keys copy.
    self assert:(dict size == keysAfter size).
! !

!CacheDictionaryTest class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !