equal
deleted
inserted
replaced
1 "{ Package: 'exept:regression' }" |
1 "{ Package: 'stx:goodies/regression' }" |
2 |
2 |
3 "{ NameSpace: RegressionTests }" |
3 "{ NameSpace: RegressionTests }" |
4 |
4 |
5 TestCase subclass:#GCTest |
5 TestCase subclass:#GCTest |
6 instanceVariableNames:'' |
6 instanceVariableNames:'' |
15 testRemSetOverflow1 |
15 testRemSetOverflow1 |
16 |arr| |
16 |arr| |
17 |
17 |
18 arr := Array new:100000. |
18 arr := Array new:100000. |
19 100 timesRepeat:[ |
19 100 timesRepeat:[ |
20 1 to:100000 do:[:i | |
20 1 to:100000 do:[:i | |
21 arr at:i put:(Array new:1). |
21 arr at:i put:(Array new:1). |
22 ]. |
22 ]. |
23 ]. |
23 ]. |
24 |
24 |
25 " |
25 " |
26 self new testRemSetOverflow1 |
26 self new testRemSetOverflow1 |
27 " |
27 " |