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