diff options
| author | Matteo Pasotti <matteo.pasotti@gmail.com> | 2015-01-11 10:51:01 +0100 |
|---|---|---|
| committer | Matteo Pasotti <matteo.pasotti@gmail.com> | 2015-01-11 10:51:01 +0100 |
| commit | c08ab32e45c6a20516dee43c2d8531ff911bf638 (patch) | |
| tree | 89a289a8af331415c12cf8e60b26a969422d68fe | |
| parent | 82ffcc5aeba0f55c7adb0114034d9b6ba743e5ef (diff) | |
| download | manatools-c08ab32e45c6a20516dee43c2d8531ff911bf638.tar manatools-c08ab32e45c6a20516dee43c2d8531ff911bf638.tar.gz manatools-c08ab32e45c6a20516dee43c2d8531ff911bf638.tar.bz2 manatools-c08ab32e45c6a20516dee43c2d8531ff911bf638.tar.xz manatools-c08ab32e45c6a20516dee43c2d8531ff911bf638.zip | |
added test for ask_multiple_fromList
| -rw-r--r-- | t/03-Shared_GUI.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/03-Shared_GUI.t b/t/03-Shared_GUI.t index 695a4196..92516cf0 100644 --- a/t/03-Shared_GUI.t +++ b/t/03-Shared_GUI.t @@ -13,7 +13,7 @@ BEGIN { ok( my $gui = AdminPanel::Shared::GUI->new(), 'create'); SKIP: { - #remember to skip the righ number of tests + #remember to skip the right number of tests skip "To enable dialog tests set TEST_GUI", 11, unless $ENV{TEST_GUI}; ok( $gui->warningMsgBox({text => "Warning message! (no title, no richtext)<br> line two"}), 'wmb1'); @@ -39,6 +39,17 @@ SKIP: { }), 'ask_fromList'); diag "ask_fromList got: < " . ($item ? $item : "none") . " >"; + 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}], + }), 'ask_multiple_fromList'); + diag "ask_multiple_fromList got: < " . join(' - ', @${mul_selection}) . " >"; + ok(my $selection = $gui->select_fromList({ title => "Select from list", header => { |