142 "Created: / 05-09-2014 / 19:44:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
142 "Created: / 05-09-2014 / 19:44:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
143 "Modified: / 16-09-2014 / 18:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
143 "Modified: / 16-09-2014 / 18:50:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
144 "Modified: / 24-06-2016 / 00:41:29 / jv" |
144 "Modified: / 24-06-2016 / 00:41:29 / jv" |
145 ! |
145 ! |
146 |
146 |
|
147 test_newspace_resize |
|
148 |
|
149 <timeout: 120> "2min" |
|
150 <spawn: true> |
|
151 |
|
152 | newSize newLimit holder | |
|
153 |
|
154 newSize := ObjectMemory newSpaceSize. |
|
155 [ |
|
156 ObjectMemory scavenge. |
|
157 newLimit := (ObjectMemory newSpaceSize * 0.9) rounded. |
|
158 |
|
159 "/ Fill in new space so it's 90% full, no garbage. |
|
160 holder := OrderedCollection new. |
|
161 [ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[ |
|
162 holder add: (Array new: 100). |
|
163 ]. |
|
164 "/ Grow the new space to two times the current size. |
|
165 ObjectMemory newSpaceSize: 2 * newSize. |
|
166 self assert: (ObjectMemory newSpaceSize >= (2 * newSize)). |
|
167 self assert: (ObjectMemory newSpaceUsed / ObjectMemory newSpaceSize) < 0.5. |
|
168 |
|
169 "/ Fill in new space so it's 90% full, no garbage. |
|
170 newLimit := (ObjectMemory newSpaceSize * 0.9) rounded. |
|
171 [ ObjectMemory newSpaceUsed < newLimit ] whileTrue:[ |
|
172 holder add: (Array new: 100). |
|
173 ]. |
|
174 "/ Grow the new space to two times the current size. |
|
175 ObjectMemory newSpaceSize: newSize. |
|
176 self assert: (ObjectMemory newSpaceSize < (newSize + 4096"page size as tolerance for page aligning")). |
|
177 |
|
178 ] ensure:[ |
|
179 ObjectMemory newSpaceSize: newSize. |
|
180 ]. |
|
181 |
|
182 "Created: / 21-09-2017 / 23:16:32 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
183 ! |
|
184 |
147 test_stx_libjava_testSuite_inspect |
185 test_stx_libjava_testSuite_inspect |
148 <timeout: 120> "2min" |
186 <timeout: 120> "2min" |
149 <spawn: true> |
187 <spawn: true> |
150 |
188 |
151 stx_libjava testSuite inspect. |
189 stx_libjava testSuite inspect. |