diff options
| author | Matteo Pasotti <matteo.pasotti@gmail.com> | 2015-01-11 12:09:08 +0100 |
|---|---|---|
| committer | Matteo Pasotti <matteo.pasotti@gmail.com> | 2015-01-11 12:09:08 +0100 |
| commit | b321b3956625c991b72155aaed7c122eea6d6a06 (patch) | |
| tree | 18e904ec99d9bf8d187ea6ad684fd1e1f49447ec | |
| parent | c08ab32e45c6a20516dee43c2d8531ff911bf638 (diff) | |
| download | manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar.gz manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar.bz2 manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar.xz manatools-b321b3956625c991b72155aaed7c122eea6d6a06.zip | |
fixed ask_multiple_fromList test
| -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}) . " >"; |