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})]]!