From b321b3956625c991b72155aaed7c122eea6d6a06 Mon Sep 17 00:00:00 2001 From: Matteo Pasotti Date: Sun, 11 Jan 2015 12:09:08 +0100 Subject: fixed ask_multiple_fromList test --- t/03-Shared_GUI.t | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 't') diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 92516cf..df90b11 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}) . " >"; -- cgit v1.2.1