RegressionTests__GCTest.st
author Claus Gittinger <cg@exept.de>
Tue, 02 Apr 2019 11:11:34 +0200
changeset 2211 632cea1b911c
parent 1447 2351db93aa5b
child 1500 d406a10b2965
permissions -rw-r--r--
#QUALITY by cg class: RegressionTests::StringTests added: #test42a_includesAny #test42b_includesMatchCharacters #test42c_includesSeparator #test60a_hash #test60b_hash #test82a_expanding #test82b_expanding #test84_withCRs removed: #test42_includesAny #test60_hash #test82_expanding changed: #test50_indexOf

"{ 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$'
! !