"{ Package: 'exept:regression' }"

"{ NameSpace: RegressionTests }"

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


!GCTest methodsFor:'tests'!

testRemSetOverflow1
    |arr|

    arr := Array new:100000.
    1 to:100000 do:[:i |
        arr at:i put:Object new.
    ].

    "
     self new testRemSetOverflow1
    "
! !

!GCTest class methodsFor:'documentation'!

version
    ^ '$Header$'
! !