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

"{ NameSpace: RegressionTests }"

TestCase subclass:#WeakCollectionTest

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections'

!

!WeakCollectionTest methodsFor:'helpers'!

fetchValueAtKey:k from:aWeakValueDict

    ^ aWeakValueDict at:k

    "

     self run:#testWeakValueDictionary3

    "

!

fetchValueAtKey:k from:aWeakValueDict ifAbsent:exArg

    ^ aWeakValueDict at:k ifAbsent:exArg

    "

     self run:#testWeakValueDictionary3

    "

! !

!WeakCollectionTest methodsFor:'tests'!

testWeakIdentityDictionary1

    |w o1 o2|

    w := WeakIdentityDictionary new.

    o1 := Object new.

    o2 := Object new.

    w at:o1 put:'o1'.

    w at:o2 put:'o2'.

    ObjectMemory garbageCollect.

    ObjectMemory finalize.

    self assert:(w size == 2).

    o1 := nil.

    ObjectMemory garbageCollect.

    ObjectMemory finalize.

    self assert:(w size == 1).

    o2 := nil.

    ObjectMemory garbageCollect.

    ObjectMemory finalize.

    self assert:(w size == 0).

    "

     self run:#testWeakIdentityDictionary1

    "

!

testWeakIdentityDictionary2

    |w o1 o2|

    w := WeakIdentityDictionary new.

    o1 := '1' copy.

    o2 := '2' copy.

    w at:o1 put:'o1'.

    w at:o2 put:'o2'.

    ObjectMemory garbageCollect.

    ObjectMemory finalize.

    self assert:(w size == 2).

    o1 := nil.

    ObjectMemory garbageCollect.

    ObjectMemory finalize.

    self assert:(w size == 1).

    o2 := nil.

    ObjectMemory garbageCollect.

    ObjectMemory finalize.

    self assert:(w size == 0).

    "

     self run:#testWeakIdentityDictionary1

    "

!

testWeakValueDictionary1

    |ww n|

    n := 10000.

    ww := WeakValueDictionary new.

    1 "100" timesRepeat:[

	(1 to:n) do:[:idx |

	    |k v|

	    k := 'k_' , idx printString , '_12345678901234567890'.

	    v := 'v_' , idx printString , '_12345678901234567890'.

	    ww at:k put:v.

	    k := v := nil.

	].

	ObjectMemory garbageCollect.

	1 to:n do:[:idx |

	    |k v|

	    k := 'k_' , idx printString , '_12345678901234567890'.

	    v := ww at:k ifAbsent:nil.

	    self assert:v isNil.

	].

    ].

    "

     self run:#testWeakValueDictionary1

    "

!

testWeakValueDictionary2

    |ww k v v1|

    ww := WeakValueDictionary new.

    ObjectMemory scavenge.

    k := 'k_12345678901234567890' copy.

    v := 'v_12345678901234567890' copy.

    ww at:k put:v.

    self assert: ( (ww at:k) == v ).

    ObjectMemory scavenge.

    self assert: ( (ww at:k) == v ).

    v1 := v copy.

    v := nil.

    "/ now the original v is not referenced any longer and should be garbage collected

    self assert: ( (ww at:k) ~~ v1 ).

    self assert: ( (ww at:k) = v1 ).

    "/ give background finalizer a chance to run.

    2 timesRepeat:[ ObjectMemory scavenge. Delay waitForSeconds:0.5 ].

"/    self assert: ( ww size = 0 ).

    self assert: ( (ww at:k ifAbsent:nil) isNil ).

    "

     self run:#testWeakValueDictionary2

    "

!

testWeakValueDictionary3

    |ww k v v2|

    ww := WeakValueDictionary new.

    ObjectMemory scavenge.

    k := 'k_12345678901234567890' copy.

    v := 'v_12345678901234567890' copy.

    ww at:k put:v.

    v2 := self fetchValueAtKey:k from:ww.

    self assert: ( v2 == v ).

    v2 := nil.

    v := v copy.

    2 timesRepeat:[ ObjectMemory scavenge. Delay waitForSeconds:0.5 ].

    v2 := self fetchValueAtKey:k from:ww ifAbsent:nil.

    self assert: ( v2 isNil ).

    v2 := nil.

    "

     self run:#testWeakValueDictionary3

    "

! !

!WeakCollectionTest class methodsFor:'documentation'!

version

    ^ '$Header$'

! !