diff options
-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 695a419..92516cf 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 => { |