Nicolas Cellier uploaded a new version of ToolsTests to project The Trunk:
http://source.squeak.org/trunk/ToolsTests-nice.103.mcz==================== Summary ====================
Name: ToolsTests-nice.103
Author: nice
Time: 16 April 2021, 11:03:17.401501 pm
UUID: 02b5002e-2e71-524a-812b-cb320a93288c
Ancestors: ToolsTests-mt.102
WeakSetInspectorTest>>testSymbolTableM6812 times out.
Be more generous (at the cost of more time spent in tests...).
Ideally we should seek an acceleration of the test, fast tests are good tests.
=============== Diff against ToolsTests-mt.102 ===============
Item was changed:
----- Method: WeakSetInspectorTest>>testSymbolTableM6812 (in category 'tests') -----
testSymbolTableM6812
"This test is related to
http://bugs.squeak.org/view.php?id=6812. Check whether field selection and garbage collection are somehow interfering."
| getRandomSymbol symbols priorContents currentContents currentIndex |
+ <timeout: 30>
self object removeAll.
getRandomSymbol := [
| token |
token := (1 to: 10) collect: [:ea | ($a to: $z) atRandom] as: String.
(Symbol lookup: token) ifNil: [token asSymbol] ifNotNil: [nil]].
symbols := OrderedCollection new.
10 timesRepeat: [
getRandomSymbol value ifNotNil: [:symbol | symbols add: symbol]].
self object addAll: symbols.
Smalltalk garbageCollect.
self assert: symbols size equals: self object size.
self assert: symbols notEmpty.
1 to: symbols size do: [:round |
currentIndex := 1.
symbols removeLast.
[(currentIndex := currentIndex + 1) <= self inspector fieldList size]
whileTrue: [
self inspector selectionIndex: currentIndex.
self assert: priorContents ~= (currentContents := self inspector contents).
priorContents := currentContents.
Smalltalk garbageCollect. "Removes symbol from weak set"
self simulateStepping. "Removes field from weak-set inspector"]].
self assert: symbols isEmpty.
self assert: self object isEmpty.!
Locked
