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

"{ NameSpace: RegressionTests }"

TestCase subclass:#EnumerationTests

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'tests-Regression-Collections'

!

!EnumerationTests class methodsFor:'tests'!

testArrayKeysAndValuesDo

    "test GC while enumerating an array"

    |a|

    a := (1 to:100) asArray.

    10 timesRepeat:[

	a keysAndValuesDo:[:index :val |

	    ObjectMemory scavenge.

	    index printString.

	    ObjectMemory scavenge.

	    val printString.

	]

    ]

    "

     self testArrayKeysAndValuesDo

    "

! !

!EnumerationTests methodsFor:'tests'!

testArrayKeysAndValuesDo

    "test GC while enumerating an array"

    |a|

    a := (1 to:100) asArray.

    10 timesRepeat:[

	a keysAndValuesDo:[:index :val |

	    ObjectMemory scavenge.

	    index printString.

	    ObjectMemory scavenge.

	    val printString.

	]

    ]

    "

     self new testArrayKeysAndValuesDo

    "

    "Modified (comment): / 10-10-2011 / 13:48:48 / cg"

!

testWeakArrayKeysAndValuesDo

    "test GC while enumerating an array"

    |a w|

    a := WeakArray new:100.

    w := WeakArray new:100.

    1 to:a size do:[:i |

	|o|

	o := Object new.

	a at:i put:o.

	w at:i put:o.

    ].

    w keysAndValuesDo:[:index :val |

	self assert:(val class == Object).

    ].

    w keysAndValuesDo:[:index :val |

	index == 5 ifTrue:[

	    a at:7 put:nil.

	    ObjectMemory scavenge

	].

	index == 7 ifTrue:[

	    self assert:(val class == SmallInteger).

	]

    ]

    "

     self new testWeakArrayKeysAndValuesDo

    "

    "Created: / 10-10-2011 / 12:51:43 / cg"

! !

!EnumerationTests class methodsFor:'documentation'!

version

    ^ '$Header$'

! !