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

"{ NameSpace: RegressionTests }"

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


!GCTest methodsFor:'tests'!

testRemSetOverflow1
    |arr|

    arr := Array new:100000.
    100 timesRepeat:[
	1 to:100000 do:[:i |
	    arr at:i put:(Array new:1).
	].
    ].

    "
     self new testRemSetOverflow1
    "
! !

!GCTest class methodsFor:'documentation'!

version
    ^ '$Header$'
! !