Patrick Rein uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-pre.359.mcz

==================== Summary ====================

Name: KernelTests-pre.359
Author: pre
Time: 30 April 2019, 3:24:23.948906 pm
UUID: 6e90bf67-9160-3e40-99e7-cb9d9aa6f794
Ancestors: KernelTests-nice.358

Adds a test case for #valueSupplyingAnswers: for selecting from a list through specifying the element or the index.

=============== Diff against KernelTests-nice.358 ===============

Item was added:
+ ----- Method: BlockClosureTest>>testSupplySpecificAnswerToSelection (in category 'tests - supply answer') -----
+ testSupplySpecificAnswerToSelection
+ 
+ 	| windowTitle |
+ 	windowTitle := 'What is your favorite letter?'.
+ 	UIManager subclassesDo: [:managerClass | 
+ 		self should: [#b = ([managerClass new chooseFrom: #(a b c) values: #(a b c) title: windowTitle] 
+ 			valueSupplyingAnswer: {windowTitle . #b})]].
+ 	
+ 	UIManager subclassesDo: [:managerClass | 
+ 		self should: [#b = ([managerClass new chooseFrom: #(a b c) values: #(a b c) title: windowTitle] 
+ 			valueSupplyingAnswer: {windowTitle . 2})]]!