A new version of ToolsTests was added to project The Inbox:
http://source.squeak.org/inbox/ToolsTests-ct.99.mcz==================== Summary ====================
Name: ToolsTests-ct.99
Author: ct
Time: 24 September 2020, 12:23:28.743708 pm
UUID: 3344a54d-786b-f948-b7c3-dc44fc21fe50
Ancestors: ToolsTests-mt.98
Increases timeout for WeakSetInspectorTest >> #testSymbolTableM6812 which includes a call to the GC.
=============== Diff against ToolsTests-mt.98 ===============
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."
+ <timeout: 10 "seconds"> "#garbageCollect can be an expensive operation"
| getRandomSymbol symbols priorContents currentContents currentIndex |
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
