RegressionTests__GCTest.st
author sr
Thu, 23 Jan 2020 14:44:41 +0100
changeset 2535 557ae1c822d3
parent 1447 2351db93aa5b
child 1500 d406a10b2965
permissions -rw-r--r--
#BUGFIX by sr class: RegressionTests::WebSocketTest::DemoWebSocketService removed: #_process: class: WebSocketTest added: #testCommunicationByteArray100 class: WebSocketTest::DemoWebSocketService added: #_process: changed: #startServingWebSocket:

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