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.!