diff options
Diffstat (limited to 't/03-Shared_GUI.t')
-rw-r--r-- | t/03-Shared_GUI.t | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 92516cf0..df90b119 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -39,14 +39,16 @@ SKIP: { }), 'ask_fromList'); diag "ask_fromList got: < " . ($item ? $item : "none") . " >"; - ok(my $mul_selection = $gui->ask_multiple_fromList({ + ok( my $mul_selection = $gui->ask_multiple_fromList({ title => "Choose from list", header => "What do you have selected?", list => [ - {text=>'item 1',val=>1}, - {text=>'item 2',val=>0}, - {text=>'item 3',val=>1}, - {text=>'item 4',val=>0}], + map { + { + text=>'item 1', + val=>\$_ + }, + } (1,0,1,0)], }), 'ask_multiple_fromList'); diag "ask_multiple_fromList got: < " . join(' - ', @${mul_selection}) . " >"; |