"{ Package: 'exept:regression' }"

Object subclass:#EnumerationTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Tests-Regression'
!


!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 class methodsFor:'documentation'!

version
    ^ '$Header$'
! !