aboutsummaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authorMatteo Pasotti <matteo.pasotti@gmail.com>2015-01-11 12:09:08 +0100
committerMatteo Pasotti <matteo.pasotti@gmail.com>2015-01-11 12:09:08 +0100
commitb321b3956625c991b72155aaed7c122eea6d6a06 (patch)
tree18e904ec99d9bf8d187ea6ad684fd1e1f49447ec /t
parentc08ab32e45c6a20516dee43c2d8531ff911bf638 (diff)
downloadmanatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar
manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar.gz
manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar.bz2
manatools-b321b3956625c991b72155aaed7c122eea6d6a06.tar.xz
manatools-b321b3956625c991b72155aaed7c122eea6d6a06.zip
fixed ask_multiple_fromList test
Diffstat (limited to 't')
-rw-r--r--t/03-Shared_GUI.t12
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}) . " >";